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NEWSLETTER INFORMATION 


THE H&E COMPUTRONICS INC. MONTHLY NEWS MAGAZINE IS PUBLISHED BY H & E COMPUTRONICS INC. 


THE H&E COMPUTRONICS INC. MONTHLY NEWS MAGAZINE IS NOT SPONSORED, NOR IN ANY WAY OFFI- 
CIALLY SANCTIONED BY RADIO SHACK. 


THE PURPOSE OF THE H&E COMPUTRONICS INC. MONTHLY NEWS MAGAZINE |S TO PROVIDE AND EXCHANGE 
INFORMATION RELATED TO THE CARE, USE AND APPLICATION OF THE TRS-80 COMPUTER SYSTEM. 


H & E COMPUTRONICS INC. DOES NOT TAKE FINANCIAL RESPONSIBILITY FOR ERRORS IN PUBLISHED 
PROGRAMS, USERS ARE ADVISED TO CAREFULLY EDIT VITAL PROGRAMS. 


THE H&E COMPUTRONICS INC. MONTHLY NEWS MAGAZINE ENCOURAGES COMMENTS, QUESTIONS AND 
SUGGESTIONS. WE PUBLISH ARTICLES AND PROGRAMS WRITTEN BY OUR READERS. COMPUTRONICS, INC. 
WILL PAY CONTRIBUTORS FOR ARTICLES AND PROGRAMS PUBLISHED IN THE NEWS MAGAZINE. 


SUBSCRIPTIONS ARE $24 PER YEAR ($30 PER YEAR-CANADA AND MEXICO, $36 PER YEAR OUTSIDE OF THE 
UNITED STATES, CANADA AND MEXICO — AIR MAIL). BACK ISSUES ARE AVAILABLE ($2 PER ISSUE). 


HAVE ANY URGENT QUESTIONS? WE HAVE TELEPHONE HOURS — 9 A.M.-5 P.M. OTHER TIMES, LEAVE A 
MESSAGE ON OUR ANSWERING MACHINE. WE WILL PROMPTLY RETURN ALL CALLS (COLLECT). 


*** ADDITIONAL WORD PROCESSOR INSTRUCTIONS APPEAR IN THE APRIL, 1979 EDITION. 


*** ADDITIONAL MEMORY TEST INSTRUCTIONS APPEAR IN THE JULY, 1979 EDITION. 


LOCAL TRS-80 CLUBS 


THE COMPUTER CLUB OF ORLANDO (FLORIDA) — Contact M. Scott Adams — (305) 862-6917. 


TRS-80 USER'S GROUP OF CHICAGO (ILLINOIS) — Contact John C. Longstreet, 1201 W. Chase Avenue, Chicago, Illinois 
60626 or call 761-2742 


THE SOLANO TRS-80 USER'S CLUB — Fairfield, California — Contact Dave or Steve Irwin — (707) 422-3347. 


TRS-80 USER'S GROUP OF WALNUT CREEK (CALIFORNIA) — Contact John Snyder, 712-C Country Wood, Walnut Creek, 
California 94598 or call (415) 938-9669. 

INLAND COMPUTER SOCIETY — Contact Sandy Sparks, 3359 Second Street, Riverside, California 92501 or call (714) 
256-5319 or (714) 784-3499 


TRS-80 USER’S GROUP OF SANTA ANA — Contact Arnold Vags, 3713 S. Parton Street, Santa Ana, California 92707 or call 
(714) 784-0456. 

TRS-80 BUG INC. OF FLORIDA — Contact Larry J. Harrell, 2100 N. Atlantic Avenue-402, Cocoa Beach, Florida 32931 or call 
(305) 784-0456. 

MONTEREY BAY USERS’ GROUP FOR TRS-80 USERS — Contact William S. Pitt, P.O. Box GH, Pacific Grove, CA 93950. 
ALABAMA TRS-80 USERS‘ GROUP — Contact Errol Kyzer, Phone 281-2107. 


WYOMING VALLEY COMPUTER CLUB — Contact Art Prutzman, 302 Wyoming Avenue, Kingston, PA 18704 or call (717) 
287-1014. 


VENTURA COUNTY TRS-80 COMPUTER CLUB — Contact Nick Sharp, 2534 North Temple Avenue, Camarillo CA 93010. 
CRESCENT CITY COMPUTER CLUB — write to P.O. Box 1097, University of New Orleans, New Orleans LA 70122. 
WITCHITA VALLEY TRS-80 USERS GROUP, P.O. Box 1384, Witchita Falls TX 76307. 
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BITS AND PIECES 


by 
HOWARD Y. GOSMAN 


YOUR SUBSCRIPTION HAS EXPIRED IF...THE NUMBER ABOVE YOUR NAME AFTER THE DASH ON 
YOUR MAILING LABEL IS 21 (OR LESS). THE NUMBER FOLLOWING THE DASH TELLS YOU THE 
LAST ISSUE THAT YOU WILL RECEIVE. For example, if your subscription number is 
16429-21, your subscription expires with this issue (ISSUE #21). 


ON TIME? 

Yes you have been receiving many issues in a short period of time. Hopefully, 
this issue should reach you before April 15 (and maybe even sooner). This is the 
earliest we have ever gotten an issue out. Who knows...maybe you'll get the May 
issue in April!! 


MORE ON OUR FREE CASSETTE 

The latest version of our FREE CASSETTE contains four programs. The WORD 
PROCESSOR, DATABASE MANAGEMENT, MEMORY TEST and CLEANUP. We have two additions 
in the works (both should be available in 30-90 days). 


The 5th program on our cassette will be ADVENTURE #0 by SCOTT ADAMS. If you open 
any of the major computer magazines, you very likely to see full page ads for 
ADVENTURE INTERNATIONAL. Scott Adams of ADVENTURE INTERNATIONAL has written 8 
ADVENTURE PROGRAMS for the TRS-80 (ADVENTURE is a popular computer game played on 
many of the full sized computers). Now all COMPUTRONICS subscribers who haven't 
already been temped to buy ADVENTURE can try it out. 


The 6th program on our FREE CASSETTE will be a calculator program written by Ken 
Brown (writer of BATTLESHIP). This program isn't an ordinary calculator 
program...it is outstanding. The program simulates the TEXAS INSTRUMENTS TI-51 
scientific calculator. It gives your TRS-80 all the calculating power found on 
the TI-51. It gives 16-digit accuracy on all calculations (including SIN, COS, 
+, -, X, /, mean, standard deviation, LOG, LN...and all other functions found on 
the TI-51). 


Both of these programs will be available shortly. The programs are FREE when you 
renew your’ subscription. If you are a current subscriber and are not ready to 
renew...send $2 for the new cassette. The programs can also be purchased on 
diskette for $5. The price includes postage. Please wait for the next issue 
before requesting the new cassette or diskette. Hopefully...we will be able to 
announce the availability of the new cassette in the next issue. 


CATALOG #4 

CATALOG #4 is now available. The CATALOG is’ FREE to subscribers ($2 for 
non-subscribers). If you are a subscriber to the COMPUTRONICS MONTHLY 
NEWSMAGAZINE and have not’ received a copy of CATALOG #4...send us a post card 
along with your subscription number...and we'll send one right out to you. 


There are several changes and corrections that should be noted: 


(1) The new price for DISK AND OTHER MYSTERIES is $22.50. The price in our 
catalog is $22.95. The correct price is $22.50. 


(2) There is no charge for postage on any item in the catalog (with the exeption 
of the SOFTWARE SOURCE) if the order is shipped by U.P.S. Add $3 for all orders 


Editor-in-Chief Howard Y. Gosman Senior Writers Hurbert S. Howe, Jr., Ph D. Amy Lara 
Editor Hurbert S. Howe J. Ph.D. Advertising Director Karen Herrman 

Managing Editor Martin Leffler Art Director Edmund Khaleel 

Business Editor Peter S. Shenkin, Ph.D. Associate Editors Janet Boccia, Harvey Cohen, 
Software Manager Maryann Little Paul Matus, Lynne Mazza 
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that are shipped by any method other than U.P.S. 


(3) We can now ship orders by FEDERAL EXPRESS or EMERY AIR FREIGHT. That means 
overnight delivery. Of course, you must pay the shipping charge on EXPRESS 
SERVICE. 


(4) CHECKBOOK II is now available on CASSETTE or DISKETTE. If you already have 
the cassette version...send $10 for the DISK VERSION (the DISK VERSION is 
available for $29.95 if you don't already own the cassette version). If you own 
two disk drives...you should consider buying the CHECK REGISTER ACCOUNTING SYSTEM 
rather the CHECKBOOK II. 


(5) There are several programs advertised on our MASTER PAC 100 ad. Only the 
MASTER PAC 100 is available. All the other programs on the ad are no _ longer 
available. 


(6) DON'T ORDER THE B-17 LOADER UNLESS YOU READ THE DESCRIPTION CONTAINED IN 
THIS ISSUE (BELOW). 


(7) The new price for MON-3 is $39.95 (reduced from $49.95). The new price for 
MON-4 is $49.95 (reduced from $59.95). 


LOWER CASE MODIFICATIONS 

As you know...RS is now installing a lower case modification especially for use 
with RS's new word processor called SCRIPSIT. YOU CAN NOT USE THE ELECTRIC 
PENCIL ALONG WITH RADIO SHACK'S LOWER CASE MODIFICATION. When RS puts in the 
modification they do not install a control key which is used with the ELECTRIC 
PENCIL. If you have installed a lower case modification (such as_ the 
modification given in Issue #6 of COMPUTRONICS), both SCRIPSIT and the ELECTRIC 
PENCIL can be used. 


Some more to remember. RS installs the lower case modification for $99.95. If 
you have a soldering iron, $5 and issue #6 of the Newsletter (and know how to use 
a soldering iron), you can easily install the modification. The actual parts can 
be obtained from RS for less than $5. This modification works with both the 
ELECTRIC PENCIL and SCRIPSIT. H & E COMPUTRONICS, INC. sells a lower case 
modification kit along with a lower case driver program for $19.95. We can also 
have someone install your lower case modification right before your eyes (in less 
than 10 minutes). We have someone here on Saturdays that can do the installation 
(please call for an appointment). 


SCRIPSIT THE NEW WORD PROCESSOR...DOES IT REPLACE THE ELECTRIC PENCIL? 

SCRIPSIT is good, but does it replace the ELECTRIC PENCIL? 

Well, it's about a toss up. The ELECTRIC PENCIL is easier to learn how to use. 
You can learn to use the ELECTRIC PENCIL in just a few minutes. On the other 
hand...to use SCRIPSIT you must listen to several hours of cassette tape 
instructions and read a fairly long manual. I've been using the ELECTRIC PENCIL 
for over a year nkw...and refuse to take the time to learn to use SCRIPSIT. I 
know several heavy ELECTRIC PENCIL users who have learned how to use SCRIPSIT. 
Some give it up and go back to the ELECTRIC PENCIL...others say that SCRIPSIT is 
Superior and that they will no lojger use the ELECTRIC PENCIL. In 
Short...SCRIPSIT is excellent...just as the ELECTRIC PENCIL is excellent. Either 
choice will satisfy most users. I'm still using the ELECTRIC PENCIL but will try 
to learn how to use SCRIPSIT so we can give you a full review next month. 


a 
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LOWER CASE MODIFICATIONS AND YOUR GUARANTEE 

Up until last month...RS would not fix any CPU that contained a non-RS lower case 
modification. In order to get your CPU fixed you had to pay RS to remove the 
lower case modification. Once removed, RS would fix your computer. Now, RS has 
agreed to end this practice. They have agreed to fix any of their 
computers...with the RS modification or with non-RS modifications. This is good 
news for those who have chosen to add the less expensive lower case modification 
(or any other modification). 


COMPUTER/TYPEWRITER MECHANICAL INTERFACE 

On page 484 from the NEWSMAGAZINE we reviewed the ROBOTYPE 2001. The ROBOTYPE is 
Supposed to turn any typewriter into a quality output printer. The ROBOTYPE can 
easily be attached to any typewriter such as the IBM SELECTRIC (at least 
according to the ads). The ROBOTYPE, as the name implies, is a device that fits 
over your typewriter. It actually has little ROBOTLIKE fingers that press the 
keys on your typewriter. So, for example, if you are using the ELECTRIC 
PENCIL...you type your text on the video display...then your TRS-80 instructs the 
ROBOTYPE to hit the proper keys to duplicate the text within the memory of your 
TRS-80. In our review...we stated that we are very skeptical about its merits. 
A Douglas Werbeck of Ruskin Florida has another opinion... 


-.-"Page 484...describes ROBOTYPE for $1000. I saw this demonstrated at a booth 
during PC'79 in Philadelphia. I asked many questions and they were all answered 
very satisfactorily by the demonstration team. I currently use a CENTRONICS 779 
for print-outs, but I do plan a purchase of the Rochester gizmo for letter 
writing, to be attached to the machine on which this is being written. 


"It is truly weird to see all those little plunger "fingers" whacking away at the 
keys at 15 cps! Fits any standard keyboard American typewriter! Hope I have 
been of some help!" 


The ROBOTYPE sells for about $500 complete. If it works as well as Mr. Werbeck 
says...it may be a good alternative for high quality print for those who already 
own an IBM SELECTRIC or other high quality printer. For more information, 
contact ROCHESTER DATA INC., 3100 Monroe Avenue, Rochester NY 14618 or call (716) 


385-4336. 

SAVING ASCII DISK FILES 

The following information was submitted by: Edward Wolff, 51 E 21th Street, New 
York NY 10010. 


In your January issue you printed a letter from a Mr. Kneece about problems 
loading an ASCII SAVED program and getting an error message "DIRECT STATEMENT IN 
FILE." I have had the same problem. 


I found the cause to be as follows... 


When you type in a program line, the machine will accept about 230 
characters...not 256. If this is saved ASCII format everything is fine. 


If you have used "?" for PRINT then the line is really longer by 4 characters. 


If you type in a full line...ENTER it and then edit the line. An additional 20 or 
so characters can be added. 
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In both of these cases...load after ASCII gives you 
the error message. 


In DOS this program can both be listed and printed. 


On one occasion I found the program loaded up to the 
affected line. I only had to re-enter the affected 
line and those that followed. I never double checked 
this. 


LOWER CASE MODIFICATION FOR THE WORD PROCESSOR 
Sumbitted by John P. Abraham, Medical Laboratory 
Consulting Service, 2820 Hibiscus, McAllen TX 
78501...Phone 687-2329. 


“IT was pleased to see the lowercase modification 
subroutine published in your December issue for your 
word processor. I tried this modification, and as you 
had predicted, the printer is very slow. 


"T had made a slight modification to the program to 
handle the lowercase as each string is inpqt. This 
makes the time required for input a bit longer, but 
you can't really notice it. With this modification, 
in the edit mode, you have to use upper case letters 
for commands (such as shift D for delete, shift I to 
insert, etc.). By adopting this minor modification, 
the text can be stored in upper and lower case on the 
disk or tape and there is no delay in the printing. 


"If you had to print the same text several times, then 
this modification can save you a lot of time. On the 
other hand, if you only need to print the text only 
once or twice, but would like to save time in the 
input phase then the modification appearing in the 
December issue would be better." 


Here is the modification: 


592 IF A<65 THEN GOTO 600 

594 IF A<91 THEN A=A+32:A$=CHR$(A) :GOTO$600 
596 IF A<128 THEN A=A-32:A$=CHR$(A) 

2520 PRINT@C ,CC$; :A$=INKEY$: IFA$<>""THEN2535 
2535 A=ASC(A$):IF A<65 THEN GOTO 2540 

2536 IF A<91 THEN A=A+32:A$=CHR$(A) :GOTO2540 
2537 IF A<128 THEN A=A-32:A$=CHR$(A) 


COMMENTS ON THE RADIO SHACK LINE PRINTER III 
Submitted by Bruno M. Larsell, Colonel, USAF (Ret)9, 
GIANCO, 10708 Santa Fe Drive, Sun City AZ 
85351...(602) 977-5511. 


"Iam a subscriber to your fine magazine TRS-80 
MONTHLY NEWS MAGAZINE. It is excellent. 
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‘= XYBASIC Interactive Process Control BASIC — Full 
disk BASIC features plus unique commands to han- 
dle bytes. rotate and shift, and to test and set bits. 
Available in Integer, Extended and ROMable versions. 
Integer Disk or Integer ROMable .. ......$295/$25 
Extended Disk or Extended ROMabie . $395/$25 


= SMAL/80 Structured Macro Assembled Language — 
Package of powerful general purpose text macro 
Processor and SMAL structured language compiler. 
SMAL is an assembler language with IF-THEN-ELSE, 
LOOP-REPEAT-WHILE, DO-END, BEGIN-| ENG. con- 
SWUNG 2 os arvermasrivicanrvereinencanrts $75/$15 


G SELECTOR IIIl-C2— Data Base Processor to create 
®@ and maintain multi Key data bases. Prints formatted 
tt sorted reports with numerical summaries or mailing 

labels. Comes with sample applications, including 


| Sales Activity, Inventory, Payables. Receivables, 
, Check Register, and Client/Patient Appointments, Ses 
ws Requires CBASIC-2. Supplied in source . . .$295/$20 


(CC GLECTOR — General Ledger option to SELECTOR 
Il-C2. Interactive system provides for customized 
COA, Unique chart of transaction types insure proper 
double entry bookkeeping. Generates balance sheets, 
P&L statements and journals. Two year record allows 
for statement of changes in financial position report. 
Supplied in source. Requires PELECT! ‘OR = Il-C2, 
CBASIC-2 and 52K system ....... ‘ $250/$25 


CPM/374X — Has full range of finetions to create or 
re-name an IBM 3741 volume, display directory infor- 
mation and edit the data set contents. Provides full 
file transfer facilities between 3741 volume oe sets 
SNGCPIM MOS sinicraas cores gargs » $195/$10 


© BASIC UTILITY DISK — Consists of: (1) CRUNCH-14 

@® — Compacting utility to reduce the size and increase 
the speed of programs in Microsoft BASIC and TRS- 
80 BASIC. (2) DPFUN — Double precision subroutines - 
for computing nineteen transcendental functions in- 
cluding square root, natural log, log base 10, sin, arc 
sin, hyperbolic sin, hyperbolic arc sin, etc, Furnished 
in source on diskette and documentation . . .$50/$35 


C} STRING/80 — Character string handling plus routines 
& for direct CP/M BDOS calls FORTRAN and other 


compatible Microso| The utility library 
contains routi je*programs to chain to 
a COM file, re’ mand line parameters, and 


search file diredtoties with full wild card facilities. 
Supplied as linkable modules in Microsoft format. 
Hgde dN) dd aS HE a ais $isipye TO NG WETS glee $95/$20 
STRING/80 source code available separately $295/n.a. 

) THE STRING BIT — FORTRAN character string han- 
@ dling. Routines to find, fill, pack, move, separate, 
concatenate and compare character strings. This 
package completely eliminates the problems asso- 
ciated with character string handling, in FORTRAN, 
Supplied with source ............-..0. 0005 $45/$15 


© BSTAM — Utility to link one computer to another also 
@ equipped with BSTAM. Allows file transfers at full 
data speed (no conversion to hex), with CRC block 
control check for very reliable error detection and 
automatic retry. We use it! It's great! Full wildcard 
expansion to send *.COM, etc. 9600 baud with wire. 
300 baud with phone connection. Both ends need 
one, Standard and @ versions can talk to one rs 
150/$5 


KaKKKKKK 


SUNDRIES 
&NOTIONS 


_] HEAD CLEANING DISKETTE—Cleans the drive Read/ 
Write head in 30 seconds. Diskette absorbs loose 
oxide particles, fingerprints, and other foreign parti- 
cles that might hinder the performance of the drive 
peed ane at least 3 months with daily use. Specity 
DPOB! cam aasiswancees anattcureecaa) $20 ea./$45 for 3 

oO olen DISK KIT—Template and instructions to 
modily single sided 5%” diskettes for use of second 

side in single sided drives ................ $12.50 


C) FLOPPY SAVER Protection for center holes of 5%” 
floppy disks. Only 1 needed per diskette. Kit contains 
centering post, pressure tool, tough 7-mil mylar rein- 
acrelns rings. Installation tools and rings for 25 disk- 


i] 


n 


ie arene Of tings Only ws swicrwwwrswn acces saa! $7: 95 


( PASCAL USER MANUAL AND REPORT — By Jensen 
and Wirth. The standard textbook on the language, 
Recommended for use by Pascal/Z, Pascal/M and 
Pascal COS: tik. Sis eiiee sins seine usee ses $8 


O THE C PROGRAMMING LANGUAGE — By Kernighan 
and Ritchie. The standard textbook on the language. 
Recommended for use by BDS C, tiny C, and bal 
SMITHS C USES 0... rrscccerecccesecccouees 


FOI II be 


“CP/M and MP/M are Lagerate of Digital Research. 
280 is a trademark of Zilog, | 

UNIX is a trademark of Bell Laboratories. 

WHATSIT? is a trademark of Computer Headware. 
Electric Pencil is a trademark of Michael Shrayer 
Software. 

TRS-80 is a trademark of Tandy Corp. 

Pascal/M is a trademark of Sorcim. 


tCP/M for Heath and TRS-80 Model | are modified and 
must use specially compiled versions of system and 
applications software. 


ttRecommended system configuration consists of 48K 
CP/M, 2 full size disk drives, 24 x 80 CRT and 132 
column printer. 


@Moditied version available for use with CP/M as im- 
plemented on Heath and TRS-80 Model | computers. 


@User license agreement for this product must be 
signed and returned to Lifeboat Associates before 
shipment may be mi 


© @ This product includes/eXcludes the language manual 


recommended in Sundries and Notions. 


Orders must specity disk 


systems and formats 
e.g. North Star single, 
double or quad density. 
IBM single or 2D/256, 
Altair. Helios Il, 
Micropolis Mod | or Il, 


5%" soft sector (Micro 
‘COM/SD Systems 
Dynabyte), etc 


ics FOB New York 
shipping, handling and 
6 D charges extra. 


Manual cost applicable 
against price of 
subsequent sottware 
Purchase 


The sale of each 
propnetary software 
Package conveys a 
license for use on one 
system only. 


The Software Supermarket is a trademark of Lteboat Associates 


CP/M* VERSION 2 FOR TRS-80* MODEL II NOW AVAILABLE 


Sofware 
wf a 

Manusl/ Alone 

(0 CP/M FLOPPY DISKETTE OPERATING SYSTEM — 
@ Packages supplied on diskette complete with 8080 
assembler, text editor, 8080 debugger and various 
utilities plus full documentation. CP/M available con- 
figured for most popular computer/disk systems in- 
cluding: North Star Single, Double or Quad density, 
Altair 8” disks, Helios Ii, Exidy Sorcerer, Vector MZ, 
Heath H17t or H89t, TRS-80t, ICOM 3712 and iCOM 
Micro Disk plus many other configurations available 
OME SHON wiiiercnwaasicsesenswiban nasvew $145/$25 


O CP/M version 2 (not all formats available immediately) 
 . $170/$25 


$300/$50 


MICROSOFT 


O BASIC-80 — Disk Extended BASIC, ANSI compatible 
© with long variable names, WHILE/WEND, chaining, 
@ variable length file records ....... Ss 


© BASIC COMPILER — Language compatible with 
© BASIC-80 and 3-10 times faster execution. Produces 
@ standard Microsoft relocatable binary output. In- 
cludes MACRO-80 Also linkable to FORTRAN-80 or 
COBOL-80 code modules eee ees es S950/$25 


(> FORTRAN-80 — ANSI 66 (except for COMPLEX) plus 
@© many extensions. Includes relocatable object com- 
piler, linking loader, library with manager. Also in- 
cludes MACRO-80 (see below) ..........- $400/$25 


0 COBOL-80 — Level 1 ANSI ‘74 standard COBOL plus 
most of Level 2. Full sequential, relative, and in- 
@ dexed file support with variable file names. STRING, 
UNSTRING, COMPUTE, VARYING/UNTIL, EXTEND, 
CALL, COPY, SEARCH, 3-dimensional arrays, com- 
pound and abbreviated conditions, nested IF. Power- 
ful interactive screen-handling extensions. Includes 
compatible assembler, linking loader, and relocat- 
able library manager as described under MACRO-80 
5. SER. ev 5-9 fer MRINVEER HN TRLEL ALR TALS ALO EIN RLM oCoRe aE $625/$25 


(© MACRO-80 — 8080/Z80° Macro Assembler. Intel and 
© Zilog mnemonics supported. Relocatable linkable 
@ output. Loader, Library Manager and Cross Refer- 

ence List ulilities included ..............5 $149/$15 


(2 XMACRO-86 — 8086 cross assembler. All Macro and 
© utility features of MACRO-80 package. Mnemonics 
slightly moditied from Intel ASM86. Compatibility data 
sheet available ...........-.. eee eee ee $275/$25 


CE EDIT-80 — Very fast random access text editor for text 
© with or without line numbers. Global and intra-line 
commands supported. File compare utility included. 
‘bea $89/$15 
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C MAC — 8080 Macro Assembler. Full Inte! macro defi- 
nitions. Pseudo Ops include APC, IRP, REPT, TITLE, 
PAGE, and MACLIB. Z80 library included. Produces 
Intel absolute hex output plus symbols file for use by 
SID (see below) .........eeceeee ee eeeee $120/$15 


0 Sib — 8080 symbolic debugger. Full trace, pass count 
and break-point program testing system with back- 
trace and histogram utilities. When used with MAC, 
provides full symbolic display of memory labels and 
equated values .$105/$15 


CO ZSID — As above for 280. Requires Z80 CPU $130/$25 


(C TEX — Text formatter to create paginated, page-num- 
bered and justified copy from source text files, direct- 
able to disk or printer .........0es0eeeeee $105/$15 


(0 DESPOOL — Program to permit simultaneous printing 
of data from disk while user executes another pro- 
gram from the console ......... wrntewERet $80/$5 


MICRO FOCUS 


(0 STANDARD CIS COBOL — ANSI '74 COBOL stand- 
© afd compiler fully validated by U.S. Navy tests to 
ANSI level 1. Supports many features to level 2 in- 
cluding dynamic loading of COBOL modules and a 
full ISAM file facility. Also, program segmentation, 
interactive debug and powerful interactive extensions 
1g support protected and unprotected CRT screen 
formatting from COBOL programs used with any 
dumb terminal : . .$850/$50 


(© FORMS 2-—CRT screen editor. Output is COBOL data 
© descriptions for copying into CIS COBOL programs. 
Automatically creates a query and update program of 
indexed files using CRT protected and unprotected 
screen formats. No programming experience needed. 
Output program directly compiled by CIS COBOL 
(standard) . » .$200/$20 


CO HDBS — Hierarchical Data Base System. CODASYL 
oriented with FILEs, SETs, RECORDs and ITEMS 
which are all user defined. ADD, DELETE, UPDATE, | 
SEARCH, and TRAVERSE commands supported. SET 
ordering is sorted, FIFO, LIFO, next or prior. One to 
many set relationship supported. Read/Write protec- 
tion at the FILE level. Supports FILEs which extend 
over multiple floppy or hard disk devices, 


OC MDBS — Micro Data Base System. Full network data 
base with all features of HDBS plus multi-level Read/ 
Write protection for FILE, SET, RECORD and ITEM. 
Explicit representation of one to one, one to many, 
many to many, and many to one SET relationships. 
Supports multiple owner and multiple record types 
within SETs. HDBS files are fully compatible. 


(0 MDBS-DRS — MDBS with Dynamic Restructuring Sys- 
tem option which allows altering MOBS data bases 
when new ITEMs. RECORDs, or SETs are needed 
without changing existing data. 


HDBS-Z80 version .. 

MDBS-Z80 version . $750/$35 

MDBS-DRS-Z80 version . $850/$40 
8080 Version available at $75. extra. 


aE version requires 20K RAM. 8080 version requires 


. -$250/$35 


24K RAM. (Memory requirements are additional to 
CP/M and application program.) 


When ordering HDBS or MDBS please specify if the 
version required is for 1) Microsoft L80 i.e. FOR- 
TRAN-80, COBOL-80, BASIC COMPILER, 2) MBASIC 
4, XX, or 3) BASIC-80 5.0. 


Prices and specifications subject to change without notice. 


Ita tormi 


Prices reflect distribution on 8 single density diskettes. 
Is requested which require: 


ditional diskettes, 


@ surcharge of $8. per additional diskette will be added 


EIDOS SYSTEMS a 


D KISS — Keyed Index Sequential Search. Offers com- 
@ plete Multi-Keyed Index Sequential and Direct Ac- 
cess file management. Includes built-in utility func- 
tions for 16 or 32 bit arithmetic, string/integer conver- 
sion and string compare. Delivered as a relocatable 
linkable module in Microsoft format for use with 
FORTRAN-80 or COBOL-80, etc. ...... . -$335/$23 


(2 KBASIC — Microsoft Disk Extended BASIC with all 
© KISS facilities, integrated by implementation of nine 
additional commands in language. Package includes 
KISS. REL as described above, and a sample mail 
list program ..... 


MICROPRO 


( SUPER-SORT | — Sort. merge, extract utility as abso- 
© lute executable program or linkable module in Micro- 
@ Soft format. Sorts fixed or variable records with data 
in binary, BCD, Packed Decimal, EBCDIC, ASCII, 
floating, fixed point, exponential, field justified, etc. 
Even variable number of fields per record! .$225/$25 


( SUPER-SORT II — Above available as absolute pro- 


©@ gram only ; : $175/$25 
( SUPER-SORT III — As I! without SELECT/EXCLUDE 
rn TRAE T ES DaeaeIRS jars cece eee es $125/$25 


( WORD-STAR — Menu driven visual word processing 
© system for use with standard terminals, Text format- 
@ ting performed on screen. Facilities for text paginate, 
page number, justify, center and underscore. User 
can print one document while simultaneously editing 
@ second. Edit facilities include global search and 
replace, Read/Write to other text files, block move, 
etc. Requires CRT terminal with addressable cursor 
Positioning . a $445/$40 


( WORD-STAR/MAIL-MERGE — As above with option 
© for production mailing of personalized documents 
@ with mail list from Datastar or NAD ...... .$575/$25 


Cj WORD-STAR Customization Notes — For sophisticated 
users who do not have one of the many standard 
terminal or printer configurations in the distribution 
version of WORD-STAR ...........- 500065 NA/$95 


(1 WORD-MASTER Text Editor —In one mode has super- 
© set of CP/M's ED commands including global search- 
@ ing and replacing, forwards and backwards in file in 
video mode, provides full screen editor for users with 
serial addressable-cursor terminal $125/$25 


OC DATASTAR — Professional forms control entry and 
@© display system for key-to-disk data capture. Menu 
@® driven with built-in learning aids. Input field veritica- 
tion by length, mask, attribute (i.e. uppercase, lower- 
case, numeric, auto dup., etc.). Built-in arithmetic 
Capabilities using keyed data, constants and derived 
values. Visual feedback for ease of forms design 
Files compatible with all CP/M-MP/M supported lan- 
guages. Requires 32K CP/M mip ecpiareeres $350/$35 


(© CBASIC-2 Disk Extended BASIC —Non-interactive 
@ BASIC with pseudo-code compiler and runtime in- 
terpreter. Supports full file control, chaining, integer 
and extended precision variables, etc. .. . .$109/$15 


( PASCAL/M* — Compiler generates P code from ex- 
@ tended language, implementation of standard PAS- 
CAL. Supports overlay structure through additional 
procedure calls and the SEGMENT procedure type. 
Provides convenient string handling capability with 
the added variable type STRING. Untyped files allow 
memory image |/O. Requires 56K CP/M ... .$350/$30 


 PASCAL/Z — Z80 native code PASCAL compiler. Pro- 
@ duces optimized, ROMable re-entrant code, All inter- 
facing to CP/M is through the support library. The 
package includes compiler, companion macro-as- 
sembler and source for the library. Requires 56K 
and Z80 CPU. 
Version 2 includes all of Jensen/Wirth except variant 


PRCOTOE 2 oc cnewemiineee sas siesieiean aces . . .$275/$25 
Version 3 with variant records and strings expected 
Cx) SO reny Citic etre rer Ce $395/$25 


0 PASCAL/MT — Subset of standard PASCAL. Gener- 
@ ates ROMable 8080 machine code. Symbolic debug- 


@ ger included. Supports interrupt procedures, CP/M 


om 


file 1/O and assembly language interface. Real vari- 
ables can be BCD, software floating point, or AMD 
9511 hardware floating point. Version 3 includes 
Sets, Enumeration and Record data types. Manual 


the run time package requires MAC (See under Digi- 


tal Research). Requires 32K . . .$250/$30 


vi explains BASIC to PASCAL conversion. Source for 


STRUCTURED SYSTEMS GROUP 


(© GENERAL LEDGER — Interactive and flexible system 
tt providing proof and report outputs. Customization of 
COA created interactively. Multiple branch account- 
ing centers. Extensive checking performed at data 
entry for proof, COA correctness, etc. Journal entries 
may be batched prior to posting. Closing procedure 
automatically backs up input files. Now includes 
Statement of Changes in Financial Position. Requires 
CBASIS= oaisccns niecneieies cemeinuen ree eee $1250/$25 


(© ACCOUNTS RECEIVABLE — Open item system with 
tt output for internal aged reports and customer-ori- 
ented statement and billing purposes. On-Line En- 
quiry permits information for Customer Service and 
Credit departments. Interface to General Ledger pro- 
vided if both systems used. Requires CBASIC-2. 
aa was $1250/$25 


( ACCOUNTS PAYABLE — Provides aged statements 
tt of accounts by vendor with check writing for selected 
invoices. Can be used alone or with General Ledger 
and/or with NAD. Requires CBASIC-2 ... .$1250/$25 


O PAYROLL — Flexible payroll system handles weekly, 
tt bi-weekly, semi-monthly and monthly payroll periods. 
Tips, bonuses, re-imbursements, advances, sick pay, 
vacation pay, and compensation time are all part of 
the payroll records. Prints government required peri- 
odic reports and will post to multiple SSG General 
Ledger accounts. Requires CBASIC-2 and 54K of 
memory .. $1250/$25 


Sonware 
my 
Manuat/ Alone 
CO INVENTORY CONTROL SYSTEM — Performs control 
tt functions of adding and depleting stock items, add- 
ing new items and deleting old items. Tracks quantity 
of items on hand, on order and back-ordered. Op- 
tional hard copy audit trail is available. Reports in- 
clude Master Item List, Stock Activity, Stock Valua- 
tion and Re-order List. Requires CBASIC-2 $1250/$25 


DD ANALYST — Customized data entry and reporting sys- 
tt tem. User specifies up to 75 data items per record. 
Interactive data entry, retrieval, and update facility 
makes information management easy. Sophisticated 
report generator provides customized reports using 
selected records with multiple level break-points for 
summarization. Requires CBASIC-2 ....... $250/$15 


(C LETTERIGHT — Program to create, edit and type let- 
ters or other documents. Has facilities to enter, dis- 
play, delete and move text, with good video screen 
presentation. Designed to integrate with NAD for 
form letter mailings. Requires CBASIC-2 . .$200/$25 


(NAD Name and Address selection system — interac- 
tive mail list creation and maintenance program with 
output as full reports with reference data or restricted 
information for mail labels. Transfer system for ex- 
traction and transfer of selected records to create 
new files. Requires CBASIC-2 ... . ..$100/$20 


(0 QSORT — Fast sort/merge program for files with fixed 
record length, variable field length information. Up to 
five ascending or descending keys. Full back-up of 
input files created ........ oe eee . » $100/$20 


Vow- Modlicnd 
Affe forte 


BAS/C 
PEACHTREE SOFTWARE 


1 GENERAL LEDGER — Records details of all financial 
© transactions. Generates a balance sheet and an in- 
tt come statement. Flexible and adaptable design for 
both small businesses ies performing client 
writeup services. P jorts as follows: Trial 
Balance, Transagt! rs, Balance Sheet, Prior 
Year Comparati' Ice Sheet, Income Statement, 
Prior Year Comparative Income Statement and De- 
partment Income Statements. Interactive with other 
PEACHTREE accounting packages. Supplied in 
source code for Microsoft BASIC - +++. $990/$30 


(J ACCOUNTS PAYABLE — Tracks current and aged 
© payables and incorporates eck writing feature. 


Maintains a complete 4/8 with information on 
purchase orders a t hefms as well as active 
account status. reports as follows: Open 


Voucher Report} ‘counts Payable Ageing Report 
and Cash Requirements. Provides input to PEACH- 
TREE Genera! Ledger. Supplied in source code for 
Microsoft BASIC ....... +s. ++.$990/$30 


( ACCOUNTS RECEIVABLE — Generates invoice regis- 
© ter and complete monthly statements. Tracks current 
tt and aged receivables. Maintains customer file includ- 


ing credit information ent status. The cur- 
rent status of Hy icGownt is instantly avail- 


able. Produces lollows: Aged Accounts 
Receivable, Invdic8 Register, Payment and Adjust- 
ment Register and Customer Account Status Report. 
Provides input to PEACHTREE General Ledger. Sup- 
plied in source code for Microsoft BASIC , .$990/$30 


() PAYROLL — Prepares payroll for hourly, salaried and 
© commissioned employees. Generates monthly, quar- 
tt terly and annual returns. ne res employee W-2's. 
Includes tables for holding and FICA as 
well as withholgi INGO’ states plus up to 20 
cities from pre: or user generated tables. 
Will print checks® Payroll Register, Monthly Summary 
and Unemployment Tax Report. Provides input to 
PEACHTREE General Ledger. Supplied in source 
code for Microsoft BASIC ............... $990/$30 


[ INVENTORY — Maintains detailed information on 
@ each inventory item including part number, descrip- 
+t tion, unit of measure, vendor and reorder data, item 


activity and complete i ion on current item 
costs, pricing and V2 es reports as follows: 
i 


Physical Inven' fet, Inventory Price List, 
Departmental S'! Report, Inventory Status Re- 
port, The Reordet Report and the Period-to-Date and 
Year-to-Date reports. Supplied in source code for 
Microsoft BASIC ........-.0seeeueeeee $1,190/$30 


( MAILING ADDRESS — Keeps track of name and ad- 
© dress information and allows the selective printing of 
tt this information in the form of mailing lists or ad- 
dress labels. Allows the user to tailor the system to 
his own particular require ts. User-defined for- 
mat and print-out sy: a special format file 
which tells progr: priht the mailing list or 
address label: 8 format files are included 
with system. A\ lic sorting of data uses indexed 
file management routines which allow the name and 
address information to be sequentially retrieved and 
printed without file sorting. Supplied in source code 
for Microsoft BASIC ...........0eeeen eee $790/$30 


GRAHAM-DORIAN SOFTWARE SYSTEMS 


( GENERAL LEDGER — An on-line system; no batch- 
© ing is required. Entries to other GRAHAM-DORIAN 
@ accounting packages are automatically posted. User 
tt establishes customized C.O.A. Provides transaction 
register, record of journal entries, trial balances and 
monthly closings. Keeps 14 month history and pro- 
vides comparison of current year with previous year. 
Requires CBASIC-2. Supplied in source . . .$995/$35 


( ACCOUNTS PAYABLE — Maintains vendor list and 
© check register. Performs cash flow analysis. Flexible 
@ — writes checks to specific vendor for certain in- 
tt voices or can make partial payments. Automatically 
posts to GRAHAM-DORIAN General Ledger or runs as 
stand alone system. Requires CBASIC-2. Supplied in 
source -$995/$35 


(© ACCOUNTS RECEIVABLE — Creates trial balance re- 
8 ports, prepares statements, ages accounts and rec- 
ords invoices. Provides complete information describ- 
tt ing customer payment activity. Receipts can be 
posted to different ledger accounts. Entries auto- 
matically update GRAHAM-DORIAN General Ledger 
or runs as stand alone system. Requires CBASIC-2. 
Supplied in source ............20.-e000- $995/$35 


Shopping List No.1 


Software for most popular 8080/Z80 computer disk systems 

including NORTH STAR, iCOM, MICROPOLIS, DYNABYTE DB8/2 
& DB8/4, EXIDY SORCERER, SD SYSTEMS, ALTAIR, 

VECTOR M7, MECA, 8” IBM, HEATH H17 & H89, HELIOS, 

IMSAI VDI.’ 2 & 44, REX, NYLAC, INTERTEC, VISTA V80 and V200, 
TRS-80 MODEL! and MODEL II, ALTOS, OHIO SCIENTIFIC 
DIGI-LOG, KONTRON PSI80 and IMS 5000 formats. 


Lifeboat Associates, 2248 Broadway, N.Y., N.Y. 10024 (212) 580-0082 Telex: 220501 


All Lifeboat programs require CP; 


bos 


a 


unless otherwise stated. 


‘Softwere 
wi [tena 
Manus! Alone 
( PAYROLL SYSTEM — Maintains employee master file. 
© Computes payroll withholding for FICA, Federal and 
®@ State taxes. Prints payroll register, checks, quarterly 
tt reports and W-2 forms. Can generate ad hoc reports 
and employee form letters with mail labels. Requires 
CBASIC-2. Supplied in source ........... $590/$35 


(INVENTORY SYSTEM — Captures stock levels, costs, 
@ sources, sales, ages, turnover, markup, etc. Trans- 
®@ action information may be entered for reporting by 
+ Salesman, type of sale, date of sale, etc. Reports 
available both for accounting and decision making. 
Requires CBASIC-2. Supplied in source . . .$590/$35 


Oj JOB COSTING — Designed for general contractors. 
© To be used interactively with other GRAHAM-DORIAN 
®@ accounting packages for tracking and analysing ex- 
tt penses. User establishes customized cost categories 
and job phases. Permits comparison of actual versus 
estimated costs. Automatically updates GRAHAM- 
DORIAN General Ledger or runs as stand alone sys- 
tem. Requires CBASIC-2. Supplied in source $995/$35 


O APARTMENT MANAGEMENT SYSTEM — Financial 
@ management system for receipts and security de- 
® posits of apartment projects. Captures data on va- 
tt cancies, revenues, etc. for annual trend analysis. 
Daily report shows late rents, vacancy notices, va- 
cancies. income lost through vacancies, etc. Requires 
CBASIC-2. Supplied in source ........ $590/$35 


( CASH REGISTER — Maintains files on daily sales. 
@® Files data by sales person and item. Tracks sales. 
®@ over-rings, refunds. payouts and total net deposits. 
tt Requires CBASIC-2. Supplied in source . . .$590/$35 


C tiny C — Interactive interpretive system for teaching 
@® Structured programming techniques. Manual includes 
full source listings . .. . see e ss» -$105/$40 


( BDS C COMPILER — Supports most major features of 
®@ language including Structures. Arrays. Pointers, re- 
@ cursive function evaluation, linking loader and li- 
brary. Floating point function library included. Lacks 
data initialization and static and register class speci- 
fiers. Documentation includes “THE C PROGRAM- 
y Kernighan and Ritchie. 

$125/$15 


tems software tools. Produces faster code than Pas- 
® cal with more extensive facilities. Conforms to the 
full UNIX* Version 7 C language. described by Kerni- 
ghan and Ritchie, and makes available over 75 func- 
tions for performing 1/O, string manipulation and 
storage allocation. Linkable to Microsoft REL files. 
Requires 60K CP/M . . -$630/$30 


~] POLYVUE/80 — Full screen editor for any CAT with 
@ XY cursor positioning. Includes vertical and horizon- 
tal scrolling, interactive search and replace, auto- 
matic text wrap around for word processing, opera- 
tions for manipulating blocks of text, and compre- 
hensive 70 page manual ,$135/$15 


(© POLYTEXT/80 — Text formatter for word processing 
@ applications. Justifies and paginates source text files. 
Will generate form letters with custom fields and 
conditional processing. Support for Daisy Wheel 
printers includes. variable pitch justification and mo- 
tion optimization ........... $85/$15 


(0 ALGOL-60—-Powerfu! block-structured language com- 
piler featuring economical run time dynamic alloca- 
tion of memory. Very compact (24K total RAM) sys- 
tem implementing almost all Algol 60 report features 
plus many powerlul extensions including string han- 
dling direct disk address 1/O etc. Requires 280 
CPU Sateen ew - +++ -$199/$20 


(© Z80 DEVELOPMENT PACKAGE — Consists of: (1) disk 
@ file line editor, with global inter and intra-line facili- 
ties; (2) Z80 relocating assembler, Zilog/Mostek mne- 
monics, conditional assembly and cross reference 
table capabilities; (3) linking loader producing abso- 
lute Intel hex disk file . 95 /$20 


( ZDT — 280 Monitor Debugger to break and examine 
®) registers with standard Ziiog/Mostek mnemonic dis- 
assembly displays. $35 when ordered with Z80 Devel- 
opment Package . xs, r .$50/$10 


(1) DISTEL — Disk based disassembler to Intel 8080 or 
TDL/Xitan 280 source code, listing and cross refer- 
ence files, Intel or TOL/Xitan pseudo ops optional 
Runs on 8080 .. savers . $65/$10 


(€ DISILOG — As DISTEL to Zilog/Mostek mnemonic 
@ files. Runs on 280 only - +». $65/$10 


( XASM-68 — Non-macro cross-assembler with nested 
conditionals and full range of pseudo operations. As 
sembties from standard Motorola MC6800 mnemonics 


+ 


CO XASM-65 — As XASM-68 for MOS Teornalogy MCS- 
6500 series mnemonics ........ fee eee ea! 200/$25 


(CO TEXTWRITER II! — Text formatter to justify and pagli- 
@ nate letters and other documents. Special features 
include insertion of text during execution from other 
disk files or console, permitting recipe documents 
to be created from linked fragments on other files. 
Has facilities for sorted index, table of contents and 
footnote insertions. Ideal for contracts, manuals, etc. 


(1 POSTMASTER — A comprehensive package for mail 
@ list maintenance that is completely menu driven. 
Features include keyed record extraction and label 


provides neat letters on single sheet or continu- 
ous forms. Compatible with NAD files. Requires 
CBASIC-2 ...... nec eccnnenreeragenseenes $150/$15 


(C2 WHATSIT?* Interactive data-base system using as- 
sociative tags to retrieve information by subject. 
Hashing and random access used for fast response. 
Requires CBASIC-2 '125/$25 


tF wAproduetion. A form letter program is included which 
A 
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",..This letter is to comment on your evaluation of the LINE PRINTER III. I have 
been using one for about three months now with my MODEL I system. I have a 48K 
system with three disk drives. I find the printer excellent; although I am not 
as pleased with the lower case printing as I was with the printing of the LINE 
PRINTER II which I traded in for the III. 


"I have three comments to add to yours about the LINE PRINTER III. First, RS 
advertises an UNDERLINING capability. Unfortunately, neither RS or I have _ been 
able to find a control character which will permit carriage return without line 
feed. Consequently, you cannot use the underline (CHR$95) as a _ programmable 
feature. They have advised me that I can have the RS service center remove the 
auto line feed feature but then I would have to program a line feed at the end of 
each line of print. This would be a bother. Second, RS advertises a capability 
to use 4 inch tractor feed labels or paper. You can; however, you must use it in 
the middle of the printer carriage because of the permanent roller installed. 
This means that you must tape down the "end of paper" sensor and print in the 
middle of the carriage. Third, you mentioned that you could not get 
STRING$( 10,138) to work. The reason is that 138 is not a recognized control 
character by the LINE PRINTER III. I have talked to RS about 138 and they refuse 
to admit (on the phone at least) that it is accepted for the LP III. It actually 
provides a 1/2 line feed which has great utility. If you try STRING$(10,10) you 
will find that it works fine. CHR$(10) is the recognized line feed character (on 
the LINE PRINTER III). 


"Keep up the good work. You have a fine publication. I have approximately 3000 
disk based programs and use the TRS exclusively for business purposes. I ama 
self-taught Basic programmer who uses the machine for business and not games." 


EDITORS NOTE...WE GIVE THE RADIO SHACK LINE PRINTER III a rating of 10 (out of 
10). It is a real work horse. The lower case is outstanding (in comparison to 
other dot-matrix printers). The lower case does not equal the IBM SELECTRIC but 
can be used for many purposes not requiring SELECTRIC quality print. Reliability 
is outstanding. The price for ribbons is also outstanding (that is to say very 
high prices...)! If you are considering the LINE PRINTER III...we give it high 
marks. If you are considering the LINE PRINTER II...think twice. 


A NEAT DISK TRICK 

In the DOS mode (not BASIC)...type BOOT/SYS.WHO ».. place one finger on the 
ENTER key, one finger on the "2" and one finger on the "6", Hit the ENTER key 
"6" and "2" simultaneously. Immediately lift your finger off the ENTER key, but 
leave your fingers on the "6" and "2," This works with all versions of DOS 
including NEW DOS and the RS DOS. 


ON HARD DISK DRIVES 
Contributed by David Prager, M.D., Hematology—Oncology Associates, Inc., 1730 
Chew Street, Allentown PA 18104...(215) 433-6691. 


"In your November, 1979, issue of your monthly news magazine on pages 412-413, 
you briefly commented on hard disc drives. 


"I have an operating hard dise drive in my office and am writing to share some 
experiences with you that I have had which you might want to pass on to your 
readers. With the assistance of LASALLE COMPUTING INC., a PERTEC hard disc drive 
is operating through a controller that is attached to a TRS-—80 expansion inteface 
attached to the BUS extension card edge. The hard disc has a ten megabyte 
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capacity. The CPU, CRT, and line printer are all standard TRS-80 MODEL I 
equipment with no internal or external changes. The whole system is very 


relieble and handles all of my business activities such as printing Medicare and 
Blue Shield billing forms, a literature reference retrieval system, and a general 
office billing. I will be adding a general accounting program with a _ check 
printing option in the near future. 


"All in all, I found this system to be dependable and very competitive as_ to 
price. More specific information can be received by contacting LASALLE COMPUTING 
INC., P.O. Box 116, Blue Bell PA 19422. Their phone number is (215) 275-7058." 


APRIL HINT-OF-THE-MONTH BY GORDON SPEER 

When your program runs out...the screen display automatically prints the word 
"READY' and pushes whatever you had on the screen up two lines. If you had a 
screen just chock full of goodies at the time and didn't want to lost those top 
lines, what you need to do is give your program something to occupy itself, so 
you can keep the screen still. A simple loop like: 


1660 GOTO 1660 


will keep it busy for hours and hours, but may be interrupted by the BREAK key 
anytime. 


THIS MONTH 

Our WORD PROCESSOR is_ now one year old. This month...we have an updated WORD 
PROCESSOR incorporating many of the suggestions we have had from readers during 
the last year. 


Due to the length of our new WORD PROCESSOR...ASSEMBLY LANGUAGE FOR BEGINNERS and 
our BUSINESS COLUMN do not appear in this issue. They will appear in the May 
issue, 


Have you tried any of Gordon Speer's programs? If not...try them. This is 
Gordon Speer's fourth in a series of programs written for the "average" TRS-80 
owner. 


For Business Systems Software 
ers Only!! 
“gm 
MODEL | DISKETTES BE" + Motels Land 
VERBATIM 10/$38.00 Toohisccing reed to taplemect copies Vases solar, 
WABASH 10/$38.00 mteegion bore we pewsoserd ac kay ag ie 
KEYLINE 10/$29.95 eecterdficond 
MEMOREX 10/$29.95 ai al 
MODEL II DISKETTES ere a cretion wt 4 ie 
MEMOREX 10/$49.95 eine = eer rece bie pete| 
peAILSSLE Enon ee eae 
H&E COMPUTRONICS, INC. en ea Se a ee 


415 MILLBURY STREET 
WORCESTER, YMA 01607 
ue (617) 755-8134 


*TRS-80 and TRS DOS are trademark of Tandy Corporation, which has no relationship 
to RCR Inc. 
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CRYSTAL BALL DEPARTMENT 


(NEW PRODUCTS FROM RADIO SHACK) 


WARNING...THE INFORMATION FOUND IN OUR CRYSTAL BALL DEPARTMENT DOES NOT REPRESENT 
VERIFIABLE FACT. WHAT FOLLOWS ARE RUMORS FROM WHAT WE CONSIDER TO BE RELIABLE 
SOURCES (unless otherwise stated). 


(1) Are we embarrassed? For two months we have been telling you that RS intends 
to stop production of the TRS-80. Now we're not too sure. If anything...our 
rumor has stirred a lot of controversy and a lot of phone calls from people not 
willing to give their names. Right now...our crystal ball is a little fuzzy as 
to the future existence of the TRS-80...but let's convey the latest rumors. 


From one reliable source...we hear that RS is ending production of the TRS-80 on 
June 1, 1980. It will be replaced by a new color version...called the TRS-90. 
One of our’ sources tell us that the new TRS-90 will not be compatible with the 
TRS-80. Another one of our sources tells us that the new TRS-90 will be 
compatible with the TRS-90 and use the same MICROSOFT BASIC. More probable...the 
Basics will be compatible...but you will have to convert your present’ tapes 
(using some sort of conversion program) to work on the new TRS-90. 


From another reliable source!!...we hear...NO! RADIO SHACK is not’ stopping 
production of the MODEL I...they are stopping production of the MODEL I...LEVEL I 
4K machine only. It will be _ replaced by an elementary game type 
computer...similar to the ATARI. What you will get for $300 is a fancy keyboard. 
You can plug the keyboard into your present color television. You can plug joy 
sticks and other devices into the keyboard. The color computer will play plenty 
of games...but with the keyboard...you will be able to write your own games. The 
color computer will be equivalent to the TRS-80 MODEL-I with 4K...but will not be 
expandable. Users can learn to program since LEVEL-I BASIC (or _ something 
similar) will be in the ROM....It should be noted that MACY'S DEPARTMENT STORE 
has recently placed full page ads advertising a new MATEL COMPUTER. The MATEL 
COMPUTER is just a game computer. It uses cartridges similar to the ATARI VIDEO 
GAME COMPUTER. They do say that a keyboard will be available shortly. 


AND FROM STILL ANOTHER SOURCE we hear the RADIO SHACK is stopping production of 
the TRS-80 in its present form. The new TRS-90 will replace the TRS-80. The 
TRS-90 will be an update version of the TRS-80...capable of being plugged into a 
color television...but completely compatible with all TRS-80 equipment. 


AND FROM STILL ANOTHER SOURCE...Yes RADIO SHACK was going to cease production of 
the TRS-80 on June 1, 1980...but they haven't been able to get FCC approval on a 
color monitor. The color TRS-90 is shelved until approval can be obtained. 


(2) NEW DISK DRIVES FROM RADIO SHACK...THIS IS FACT...NOT RUMOR. RADIO SHACK is 
now shipping 77 tracks with about 200K capacity. These drives are actually in 
the hands of many users. You can tell the new disk drives apart from the old 
ones by their weight. The new disk drives are much heavier. RADIO SHACK has not 
announced the new 77-track capacity and hasn't announced the appearance of new 
disk drives. The new drives are manufactured by TANDY CORPORATION. The new 
drives use the same cables and same 35-track operating system. At the present 
time...RADIO SHACK only supports the 35-track operating system. To use the new 
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disk drives as 40-track (about 110K) or 77-track (about 185K)...all you have to 
do is purchase a copy of a 40-track or 77-track operating systea (yes...we sell 
it...we sell both the 40-track and 77-track of NEW DOS + ...available for 
$99.95). So...if you have one of the new disk drives...all you have to do is use 
the 77 TRACK NEW DOS + operating system...and you will have close to 200K of disk 
storage capacity. 


There are some catches. You can mix the new RADIO SHACK disk drives with the 
older disk drives...but if you do mix the old drives with the new drives...you 
can only use the 35-track operating system. In order to use the 40-track or 
77-track operating system...all the disk drives must be the newer models. 


RADIO SHACK has not announced this extra storage capacity. First, RS itself does 
not have a 40 track or 77 track operating system available. Second...recent disk 
drive owners who just purchased the older drive would be a little annoyed that 
they didn't get the new drive. Third...in all probability...it will be a long 
time before RS admits that the drives have the additional capacity. They will 
probably state that although the capacity exists...they will not vouch for proven 
reliability. 


(3) Early MODEL-II owners beware. If you have the expansion interface with 1, 2 
or 3 disk drives...you may be having some unexplained errors. Some early units 
have a faulty controller card. RS knows about the problem and will replace the 
controller card at no charge. 


(4) Early MODEL-II owners should get a copy of the new 1.2 DOS and manual from 
RADIO SHACK. Go down to your store of original purchase and demand the new DOS 
version and the new manual. As far as we know...RS has not made MODEL-II owners 
aware of the new manual or of the new operating system. If your local _ store 
hasn't contacted you...make sure that you contact them. The original operating 
system has some serious errors. The new operating system is much faster and has 
no serious errors. 


(5) HARD DISK DRIVES will be available soom for the MODEL-II. The reason for 
the delay is RS's inability to find a large enough supply of the HARD DISKS. 


(6) RS has come out with a STOCK PAC. This STOCK PAC has been exhibited by RS 
at their local exhibitions. 


(7) RS now admits that it has sold more than 150,000 MODEL I computers. 
Also...more about 5,000 MODEL II computers have been sold. 


(8) The new MODEL I LEVEL II ROM'S contain upper lower case drivers and_ serial 
printer drivers. There is no way to tell if you have the new ROM. 


(9) The new RS WORD PROCESSING PRINTER is a DIABLO MECHANISM in a DATA POINT 
package. All DIABLO print wheels, ribbons and tractor mechanisms are compatible 
with the RS WORD PROCESSING PRINTER. 


(10) RS...for the first time ever has hired a software specialist to do custom 
software. This new experiment will take place at a new RS COMPUTER CENTER in 
Paramus, New Jersey. If the experiment works...you may see it elsewhere. 
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Programs By 
GORDON SPEER 


ZIPPER 


Have you ever wanted a program that could tell you how far apart two ZIP codes 
are on the map? Well if so, here it is, and if not, why don't you see if you can 
figure out how it works? To save space, only four states' data have been 
included. It will take about 350 lines to do all 50 states' data. In the 
interests of brevity, zip codes have been rounded to hundreds, so the mileages 
generated are subject to possible errors of about 40 miles or so. 


100 ' ZIPPER 
110 DEFINT I 
120 DIM L(999) 
130 CLS 
140 '! 

NEW CITY/SPRING VALLEY, NEW YORK 
150 LET L(109)=411740 
160 ! 

ILLINOIS 
170 FOR I=600 TO 629 
180 READ L(I) 
190 DATA425881,420881,420878 ,418880,416880,416880,418876 ,410878 
200 DATA405877 , 403882 ,420895 ,421898 ,412904,412891,405904, 404900 
210 DATA405894 , 404887 , 400882 , 393882, 390900, 390900, 384892 ,402911 
220 DATA392880, 394888 , 395900, 396895 , 380885 , 372891 
230 NEXT I 
240 ! 

MISSOURI 
250 FOR I=630 TO 659 
260 READ L(I) 
270 DATA386903, 385900, 388905, 393911, 396915,401925, 376903, 378898 
280 DATA366900, 366902, 393945, 388946, 388946, 389946, 403948, 398950 
290 DATA396931, 383943, 371945, 372945 , 383925, 390923 , 390922, 386931 
300 DATA379921, 371933, 370936, 371923, 373928 , 375930 
310 NEXT I 
320 ' 

KANSAS 
330 FOR I=660 TO 679 
340 READ L(I) 
350 DATA395951,391947 , 389947 , 390944, 390965 , 391967 , 390957 , 377955 
360 DATA383961, 395977 , 370970, 380973, 377971, 371955 , 383977 , 381980 
370 DATA389993,393010, 377000, 370010 
380 NEXT I 

! 


NEBRASKA 
400 FOR I=680 TO 693 
410 READ L(TI) 


[SS a a SS 
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420 DATA415965 ,413960,413960,403969 ,407959 , 409967 ,415973,420975 
430 DATA410983,407985,401007 ,410007 ,429005,419037 
440 NEXT I 
450 ! 
INPUT 

460 CLS:PRINT CHR$(23) 
470 LET I=1 
480 INPUT"YOUR ZIPCODE"; Z(I) 
490 IF L(Z(1I)/100)=0 THEN 480 
500 GOSUB 670 
510 LET Is2 
520 INPUT"DESTINATION ZIPCODE"; Z(I) 
530 IF L(Z(I)/100)=0 THEN 520 
540 GOSUB 670 

! 


550 
CALCULATE DISTANCE 
560 LET H=ABS(LO(1)-L0(2)) "HORIZ DISPL IN /10 DEG 
570 LET AL=(LA(1)+LA(2))/20 "AVERAGE LATITUDE 
580 LET H=H*COS(AL/57.3) "CORRECTS FOR TAPER TOWARD POLE 
590 LET V=ABS(LA(1)-LA(2)) "VERT DISPL IN /10 DEG 
600 LET D=FIX(SQR(V*V+H*H) ) "DISTANCE -— PYTHAGOREAN THEOREM 
610 LET D=D*6 "NAUTICAL MILES 
620 LET D=D*1.15 "STATUTE MILES 
630 PRINT'DISTANCE ="INT(D+.5)"MI" 
640 PRINT 
650 PRINT 
660 GOTO 520 
670 ! 
SUBROUTINE 
680 LET Z(I)=INT(Z(1)/100) 'TRUNCATES ZIP TO 3 DIGITS 
690 LET LA(I)=INT(L(Z(I) )/1000) "LATITUDE X10 
700 LET LO(I)=L(Z(I) )-1000*LA(TI) "LONGITUDE X10 
710 IF ABS(LA(I)-370)>130 THEN 730 "ALASKA AND HAWAII 
720 IF LO(I)>600 THEN 740 "EASTERN STATES 
730 LET LO(I)=LO(I)+1000 "WESTERN STATES ARE OVER 100 DEG 
740 RETURN 
foo ' 
NOTES 
760 'DATA ARE FORMATTED AS FOLLOWS 
FO. POPLAR BLUFF, MO 63901 
780 ' 36.6 DEG NORTH LATITUDE, 90.2 DEG WEST LONGITUDE 
790 ' L (639) =366902 
800 ! 


810 'AN ORIGINAL PROGRAM USING 
820 'LEVEL-II BASIC FOR TRS-80 
8 30 BES MR GORDON E. SPEER 


840 3304 WOODLAWN ROAD 
850 ! STERLING, IL 61081 
860 ' PHONE(815) 625-5251 
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CENSUS 


The census bureau in Washington D.C. has a population clock that gives the 
estimated population of the United States, based on the last census, and the 
average birth and death rates. When P.T. Barnum said, "There's a sucker born 
every minute" he was being very conservative. This clock turns faster than that, 
as you will see. 


100 '' CENSUS 
DEFDBL P ‘DOUBLE PRECISION 
CLS 
PRINT CHR$(23) 
INPUT"YEAR (1900-2000)";Y 
IF Y<1900 THEN 140 
INPUT"MONTH (1-12)"3M 
IF M>12 THEN 160 
INPUT"DAY (1-31)"3D 
IF D>31 THEN 180 
'THE POPULATION INCREASES ABOUT 10X IN 150 YEARS 
"IN 1969 THE POPULATION REACHED 200 MILLION 
'T IS THE NUMBER OF 150 YEAR INTERVALS FROM 1969 
LET T=( (Y+M/12+D/365)-1969) /150 
LET P=2*10[(8+T) 'POPULATION 
LET P=INT(P) 
CLS 
PRINT CHR$(23) 
PRINT" DATES "M"/" pu /"y 
PRINT@256, STRING$(32,"=") 
PRINT@320," THE UNITED STATES' POPULATION: 
PRINT@384, STRING$(32,"=") 
PRINT@458 , P—38874;"(A WEEK AGO)" 
PRINT@522 , P-5553;"( YESTERDAY)" 
PRINT@586,P-231;"(AN HOUR AGO)" 
PRINT@650,P—4;"(A MINUTE AGO)" 
PRINT@7 14,P;"( NOW) 
FOR Y=1 TO 5000: NEXT Y 'TIME DELAY 
LET P=P+1 
GOTO 320 
! 
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CARPET 


Qne of the best business uses of the TRS-80 is in the generation of pricing and 
discount charts. Even without a printer you can easily make screen charts and 
roll them to the correct price range for reference. Here is a good example. 


100 CLS 

110 FOR R=9.95 TO 29.95 STEP 5 
120 PRINT 
130 PRINT" 
140 PRINT 
150 PRINT,"9' WIDE","12' WIDE","15' WIDE" 
160 PRINT"LENGTH" 

170 FOR L=9 TO 30 STEP 3 
180 PRINT L, 

190 FOR W=9 TO 15 STEP 3 ‘WIDTH OF CARPET 

200 LET A=L*W/9 "AREA IN SQUARE YARDS 
210 LET P=A*R *PRICE 

220 PRINT USING" ##iit. Hi"; Ps 
230 PRINT, 

240 NEXT W 

250 NEXT L 

260 PRINT 

270 INPUT" 

280 CLS 

290 NEXT R 

300 ' 

310 'AN ORIGINAL PROGRAM USING 
320 'LEVEL-ii BASIC FOR TRS-80 
330 'BY: MR GORDON E. SPEER 
340 3304 WOODLAWN ROAD 
350 STERLING, IL 61081 
360 PHONE(815)625-5251 


‘CARPET RATES PER YARD 
"BLANK LINE 
CARPET PRICING CHART @ $"R"PER SQUARE YARD" 


"LENGTH OF CARPET 


'GO TO NEXT COLUMN (ZONE) 


<ENTER> FOR NEXT CHART"; Q$ 


RADIATOR 


If you don't remember your high school chemistry, you won't understand how this 
works. It is based on the principle that each mole of non-electrolyte dissolved 
in a liter of water lowers its freezing point by 1.86 CELSIUS degrees. The 
charge this program produces is like the one that is printed on the back of the 
permanent anti-freeze container, only this one is done strictly from the chemical 
theory. You might like to check it against the one on the container to see if 


they agree. 
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TOSSER draws two randomly thrown dice at random locations on the monitor. 


' RADIATOR 

' CALCULATES FP OF PERMANENT ANTIFREEZE MIXTURES 

CLS 

PRINT," QUARTS OF ETHYLENE GLYCOL" 

PRINT" QUARTS 2 4 6 8 10 
PRINT"OF WATER < FREEZING POINT - DEGREES F >" 
FOR W = 4 TO 16 'QUARTS OF WATER 

PRINT" "Ws; 

FOR G = 2 TO 12 STEP 2 
LET VW=.946 * W 

LET VG=.946 * G 

LET MG=VG * 1109 

LET MO=MG / 62.07 

LET FC=MO / VW * -1.86 
LET FF=FC * 9/5 + 32 
PRINT TAB(G*#44+5) INT(FF) ; 
NEXT G 

IF W=16 THEN 260 

PRINT 

NEXT W 


"QUARTS OF GLYCOL 

"LITERS OF WATER 

"LITERS OF GLYCOL 

"GRAMS OF GLYCOL 

"MOLES OF GLYCOL 

"FREEZING POINT, CELSIUS 
"FREEZING POINT, FAHRENHEIT 


"FREEZE THE DISPLAY (!) 
"LINE FEED 
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TOSSER AND DICE 


These two programs are very similar, and yet you-might like to use both of them. 


12" 


DICE 


draws any number of dice from 1 to 6, and puts them in the same location on the 


screen each time. 


These programs were intended to be used by parents whose 


children play MONOPOLY or YATZEE, and tend to rattle the dice when the folks 


would like a little silence. 


To roll the dice in TOSSER, touch any key on the 


keyboard (except the BREAK key); for DICE, only the keys 1 to 6 will roll the 
dice. 


100 
110 
120 
130 
140 
150 
160 


'TOSSER — TOUCH ANY KEY TO THROW TWO DICE 
CLS "CLEAR SCREEN 

PRINT CHR$(23) 'WIDE LETTERS 

FOR D=1 TO 2 ‘TWO DICE 

LET T=RND(6) "TOSS VALUE 
L=RND(12)*64+RND(40) ‘LOCATION 

IF L/4<>FIX(L/4) THEN 150 
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IF ABS(L-S)<300 THEN 150 

LET S=L "SAVES LOCATION 
H=128*(L/64-FIX(L/64) )-4 
V=3*FIX(L/64)-2 'DRAW THE OUTLINE 
FOR X=H TO H+25 

SET(X,V) :SET(X,V+11) 

NEXT X 

FOR Y=V TO V+11 

SET(H,Y) :SET(H+25,Y) 

NEXT Y 

LET B$(1)=" O " 
LET A$(2)="0 " 
LET C$(2)=" o" 
LET A$(3)=" o" 
LET B$(3)=" 
LET C$(3)="0 u 
LET A$(4)="0 0" 
LET C$(4)="0 oO” 
LET A$(5)="0 oO" 
LET B$(5)=" 1 
LET C$(5)="0 oO" 
LET A$(6)="0 OO" 
LET B$(6)="0 oO" 
LET C$(6)="0 OO" 
PRINT@L ,A$(T) ; 
PRINT@L+64 , B$(T) ; 
PRINT@L+128 ,C$(T) ; 
NEXT D 

Q$=INKEY$ 'ANY KEY TOSSES THEM 
IF Q$="" THEN 450 

RUN 


‘SPOT THE SPOTS 


' AN ORIGINAL PROGRAM USING 
' LEVEL-II BASIC FOR TRS-80 
' BY: MR GORDON E. SPEER 
: 3304 WOODLAWN ROAD 
, STERLING, IL 61081 
' PHONE(815) 625-5251 


CLS 

PRINT CHR$(23) 

PRINT"DICE TOSSER" 

PRINT 

PRINT"NUMBER OF DICE TO TOSS 
CLEAR 1000 "RESET VARIABLES 
LET Q$=INKEY$ "STROBE KEYBOARD 
IF ABS(VAL(Q$)-3.5)<3 THEN 190 


(1 TO 6)" 


vss 
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GOTO 160 "NOT BETWEEN 1 & 6 
LET N=VAL(Q$) "NUMBER OF DICE 
CLS "CLEAR SCREEN 
PRINT CHR$(23) 'WIDE LETTERS 

FOR D=1 TO N "COUNTS THE DICE 
LET T=RND(6) ‘TOSS VALUE 

IF D>3 THEN 270 'GOES IN BOTTOM ROW 
LET L=194+24*(D-1) 'LOCATION OF DIE 
GOTO 280 

LET L=642+24*(D-4) 
H=128*(L/64-FIX(L/64) )-4 
V=3*FIX(L/64)-2 'DRAW THE OUTLINE 
FOR X=H TO H+25 

SET(X,V) :SET(X,V+11) 

NEXT X 

FOR Y=V TO V+11 

SET(H,Y) :SET(H+25,Y) 

NEXT Y 

LET B$(1)="_ 0 “ 'SPOT THE SPOTS 
LET A$(2)="o0 

LET C$(2)=" 

LET A$(3)=" 

LET B$(3)=" 

LET C$(3)="0 

LET A$(4)="0 

LET C$(4)="0 

LET A$(5)="0 

LET B$(5)=" 

LET C$(5)="0 

LET A$(6)="0 

LET B$(6)="0 oO" 

LET C$(6)="0 o" 

PRINT@L,A$(T) ; 

PRINT@L+64 , B$(T) ; 

PRINT@L+128 ,C$(T) ; 

NEXT D 

GOTO 150 

' 

' AN ORIGINAL PROGRAM USING 

' LEVEL-II BASIC FOR TRS-80 

' BY: MR GORDON E. SPEER 

J 3304 WOODLAWN ROAD 

. STERLING, IL 61081 

' PHONE(815)625-5251 
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RANDOM 


After watching random numbers from RND function, I decided to set up a counter to 
keep track of how many times each number came up. It turned out to be so 
interesting to watch, I decided you might like to try it too. It generates the 
numbers from 1 to 52 (playing cards) and keeps a running count of how many times 
each one has come up. 


PRESS 'S' to stop the counting, 'G' to go on without resetting and 'R' to reset 
all the numbers back to zero. 


f RANDOM 

CLS 

DEFINT A-Z 

DIM C(52) 

PRINT,"RANDOM NUMBER COUNTER & DISPLAY" 

LET R=RND(52) 

LET C(R)=C(R)+1 

LET H=FIX((R-1)/13) "HORIZONTAL POSITION (COLUMN 0-3) 
LET V=R-13*H ‘VERTICAL POSITION (ROW 1-13) 
PRINT@64+64*V+18*H, USING" ##";R 

PRINT USING" dHE###" 5 CCR) ; 

LET Q$=INKEY$ 

IF Q$="S" THEN LET S=1 

IF Q$="G" THEN LET S=0 

IF Q$="R" THEN RUN 

IF S=1 THEN 210 
GOTO 150 

' 
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TEXT: A (NEW) BASIC TEXT EDITOR 
by 


HUBERT S. HOWE, JR. 


Background 


Readers of the TRS-80 MONTHLY NEWS MAGAZINE know that when they subscribe to the 
magazine they receive a free cassette with several useful programs on it. One of 
the most important of these programs is the Word Processor, which was originally 
written and described in the April 1979 issue. 


Since its original publication, we have received numerous suggestions about’ the 
program. Many people have enjoyed learning more about programming by modifying 
this program to handle some aspects of it differently. Recently, we received one 
of the most extensive revisions of the program ever from Mr. Larry C. Martin of 
8030 E. Ft. Lowell, Tucson, Arizona 85715. His version had so many good features 
in it that we decided to republish the program so that all readers could benefit 
from his work. 


The present republication of the program is a combination of Mr. Martin's work 
and my own. It is as close to the earlier version of the program as possible, so 
that readers who are accustomed to using it will not have to learn an entirely 
new system. The differences between the two versions are summarized in a special 


section below. We are herewith publishing a revised "user's manual" for the 
program so that readers do not have to look up the instructions in two separate 
issues. 


One more comment about comments and suggestions from readers: we are always happy 
to receive comments or complaints about the program, particularly if you find 
that things are not working properly -- but don't call us and complain that some 
other word processor like the Electric Pencil is better! The Electric Pencil 
costs you a minimum of $100 ($150 for the disk version). This program is FREE. 
It is slow and in some ways cumbersome to use because it is written entirely in 
Basic, but part of the reason for this is that, as with all programs which are 
published in this magazine, we think you will learn some useful programming tips 
by studying how it works. 


Introduction 


TEXT is a Level II Basic text editor that enables you to create files that 
represent documents to be printed at your TRS-80. Its main features are: 


(1) It is line-oriented. This means that every line of text has a line number 
associated with it, whether or not the line number is printed. Line numbers are 
convenient references to the text. Lines can be moved, replaced, rearranged, 
etc. 


(2) It allows entry of upper or lower case letters from your keyboard without 
modifications to the TRS-80. Lower case letters can be printed properly if you 
have a line printer with the lower case character set. Otherwise, everything is 


printed in upper case. 


Inne 
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(3) Text files can be saved and loaded either on cassette tape or disk. 
(4) Lines can be edited in a manner very similar to Level II Basic. 


(5) Lines can be automatically right justified. 


(6) There are provisions for adjustable line lengths, page lengths, line 
spacing, page numbering, a left margin, and a special title to be printed at the 


top of each page. 


(7) The program itself is written entirely in Level II Basic so that you can 
study it to learn how it works and possibly modify it if you want to. 


Loading and Modifying the Program 


The program is provided on a standard Level II cassette tape. It is loaded by 
CLOAD "T" (or simply CLOAD). (In Disk Basic you must type CMD"T" first.) 


The standard version is written to fit into a 16K Level II TRS-80 computer. It 
has provisions for 100 lines of text, which is sufficient for much _ business 
correspondence or short documents. It you have 32K or 48K, you will probably 
want to expand it to fill your larger memory. This is accomplished by changing 
line 40, near the beginning of the program. It currently reads: 


40 CLEAR 3000: NL=100 


With 32K, you can expand to 200 lines, and with 48K to 400 lines. For 32K, 
change line 40 to: 


40 CLEAR 9000: NL=200 


and for 48K change it to: 
40 CLEAR 24000: NL=400 


Disk Basic users who want to save or load text files on cassette tapes must 
modify the program so that interrupts are disabled during the cassette 
operations. The following lines should be changed to read as follows: 


2070 CMD"T": INPUT#-1,LA,LM,SP,PN,PG,PL,LL,T 
2110 NEXT L: CMD"R": GOSUB 4050: GOTO 220 
2290 CMD"T": PRINT#-1,LA,LM,SP,PN,PG,PL,LL,LEN(T$) 
2330 NEXT L: CMD"R": GOSUB 4200: GOTO 220 


Running the Program 


There are basically two modes of operation in TEXT: the FILL mode and the 
COMMAND mode. FILL is used when you are entering text into the computer, and 
COMMAND at other times. When in FILL, you can return to COMMAND only by typing 
"shift-@" twice in succession. (That is, hold down the shift key while typing 
neu .) 


—__—_—_—_—_—_—_—_—_—_—_—_—— rr 
586 


‘COMPUT AOMNICS: 


MATHEMATICAL APPLICATIONS SERVICE™ 


When in COMMAND mode, the program prints "COMMAND?" and awaits your reply. The 
replies, either a single letter or character or an entire word, are all discussed 
in detail below. The program executes the command, which may réquire additional 
input from you, and returns for another one. 


HELP (H) 


The "H" command ("HELP") is provided in case you forget any of the commands. dige 
prints the complete list of commands and their associated words in order to 
remind you of their functions. The list of commands are as follows: 


F FILL Add text to the buffer. 
P PRINT Print text (on video display or line printer) 
H HELP HELP! Print list of commands. 
R REPLACE Replace range of lines with new text. 
I INSERT Insert new text starting at empty line. 
D DELETE Delete text lines. 
M MOVE Move text lines. 
N NUMBER (Re)number lines, eliminating blanks. 
E EDIT Edit line. 
L LOAD Load text file from cassette or disk. 
S SAVE Save text file on cassette or disk. 
K KILL Kill disk file. 
J JUSTIFY Right justify text lines. 
B BROWSE Browse through text using up and down arrows. 
V SET Set variables governing print options. 
CLEAR Clear buffer (erase all text). 
* KEYBOARD REVERSE Convert to lower case. 


FILL (F) 


"F" enters the FILL mode, which you use to enter text into the computer. At the 
beginning, cursor positions are indicated across the top of the screen, and 
asterisks are printed down the right-hand column to mark the right margin of 
text. In this manner you will always know where the text you are typing will fit 
on the page. 


The line number of the line currently to be typed in is displayed at the left, 
and then the cursor flashes on and off over the current position in the line 
where you are entering text. If you are starting at the beginning, FILL begins 
at the first space in line 1. If there is already some text in the buffer, it 
Starts after the last space filled, and any preceding lines are printed on the 
video display. The "cursor" used throughout the program is not the same cursor 
used in Basic, but a graphics block that covers the entire space filled in by the 
letter. 


If you are typing in a word which goes off the end of a line (by exceeding the 
line length, which is set to 60 by default or by the "V" command), the program 
automatically removes the word from the preceding line and places it at the 
beginning of the next line so that the word will not be split. Later, the lines 
can be right justified by the "J" command. 


During the FILL mode, the following keys have special functions: 


587 


‘COMPUTROINICS: 


MATHEMATICAL APPLICATIONS SERVICE 


LEFT ARROW backspace 

RIGHT ARROW TAB five spaces to the right 

DOWN ARROW form feed (page eject) on line printer (Note: this command 
does not work properly with all line printers.) 

ENTER move to next line (no character inserted) 


SHIFT LEFT ARROW backspace entire line 
SHIFT RIGHT ARROW fill to end of line with spaces 

(so that justify will not change line) 
SHIFT-@ (twice) return to COMMAND mode 


The following points should be noted about the use of these special keys: 
The RIGHT ARROW (TAB) key actually inserts five blank spaces into the line. 


The DOWN ARROW key will cause a page eject on the line printer (if your line 
printer has software that responds to the form feed character), but does not 
affect the printing of the page number and title. 


When ENTER’ is typed, it does not insert a character into the line. If it is 
typed at the beginning of a line, the line remains empty, but FILL proceeds to 
the next line. 


If you type SHIFT LEFT ARROW when the cursor is at the bottom of the screen, it 
appears to scroll to the next line but actually continues to fill the same line. 


The FILL mode it entered by both REPLACE and INSERT as well as FILL. The 
difference is that REPLACE and INSERT can insert lines of text anywhere a line 
number exists, and they will stop as soon as existing text is _ reached. FILL 
always adds text to the end of the file. 


PRINT (P) 
PRINT is used to print the text in the buffer, optionally on the line printer of 
video display. When the PRINT command is issued, the program asks two 
questions: 


PRINT LINE NUMBERS (Y/N)? 
LINE PRINTER OR VIDEO DISPLAY (P/V)? 


You must reply "Y" for line numbers to be printed and "P" for the printer to be 
selected. When you select the line printer, the program pauses and prints: 


READY PRINTER 
(TYPE V TO PRINT ON VIDEO DISPLAY)? 


At this moment you should ready the line printer, but if you want to change your 
request to print on the video display you type "V", and in either case type the 
ENTER key when ready. If you use the line printer without first readying it the 
program will "freeze up" causing you to lose all the text in the buffer. 


The printing on the video display is identical to that on the line printer, 
except that only upper case letters are displayed. The video display can show no 
more than 64 characters across and 16 lines down. Lines longer than 64 
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characters (including the line number and left margin) are continued on the next 
line, and only a portion of the 50 lines of text that can appear on a page can be 
displayed. Therefore it is often useful to PAUSE during the printing process by 
typing "shift-@". (This is a normal feature of Level II Basic.) The program 
pauses and asks you to press ENTER at the end of each page of a multi-page 
printing. 


The TITLE and PAGE NUMBER are optionally printed at the top of each page. These 
options are controlled by the "V" (SET) command. Titles are printed only if page 
numbering is ON. 


If your TRS-80 is unmodified, holding down the SHIFT key while typing a letter 
produces a LOWER case letter; otherwise the letter is upper case. This is the 
reverse of a normal typewriter. Even though only upper case letters are 
displayed, upper and lower case letters are distinct and will be printed properly 
on a line printer that has both upper and lower case letters. This method can be 
used to produce upper and lower case letters, but it is easiest to use the "*" 
KEYBOARD REVERSE option before printing, which reverses upper and lower case 
letters in the text. In this way you can type the text into the program in the 
normal manner. 


CLEAR 


CLEAR erases everything in the buffer. In addition, it restores all SET 
variables to their default values. Because its effect is so drastic, you must 
type out the entire word rather than just the first letter. 


It is not necessary to perform a CLEAR at the beginning of arun. It is only 
necessary if you want to clear everything out and start over. LOADing a_ text 
file from cassette tape or disk also clears everything in the buffer and fills it 
with material read in. 


INSERT (1) 


INSERT is used to FILL in new lines starting at any legal line number, provided 
that no text currently occupies the starting line. INSERT operates exactly like 
FILL except that it automatically terminates when you come to a line already 
occupied with text. 


REPLACE (R) 


REPLACE is used to FILL in new lines’ starting from any legal line number, 
provided that text DOES exist at the starting line. The text at the starting 
line is replaced entirely. Following that line, REPLACE operates exactly like 
INSERT and continues to FILL in new lines until you come to a line already 
occupied with text, at which point you are returned to the COMMAND mode. 


DELETE (D) 


DELETE is used to delete a range of lines from the text. Deleted lines are 
empty, but the line marker used by FILL continues to point to the spot where it 
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did before the DELETE. Therefore, to insert new test into the deleted lines, 
INSERT should be used rather than FILL. 


MOVE (M) 


MOVE is used to move a block of lines from one position in the buffer to another. 
The only limitation is that the position where the text is moved must consist of 
empty lines. If a new line is ever found that contains text, the MOVE is 
terminated and only the lines moved prior to the error are moved. The lins from 
which the text is moved are replaced with empty spaces. 


When a move begins, the program asks: 


FIRST LINE TO MOVE? 
LAST LINE TO MOVE? 
FIRST NEW LINE? 


If your replies to these questions are 1, 4, and 6, then line 1 would be moved to 
line 6, line 2 to line 7, line 3 to line 8, and line 4 to line 9. Lines 1-4 
would become empty lines. If, in performing the move, the computer found that 
line 7 already had text in it, it would print: 


LINE 7 ALREADY OCCUPIED 
and stop the move. However, line 1 would have been moved to line 6. 


If you want to insert one or more blank lines into existing text, first MOVE the 
lines following where you want the blank line to be inserted down to a free area 
in the buffer, and then MOVE them back to one or more lines following their 
original position. 


MOVE can also be used to rearrange the text lines, in order to change the order 
of paragraphs or for other reasons. 


NUMBER (N) 


NUMBER is used to delete all empty lines and close up the text. In addition, the 
lines are renumbered starting from 1 and the line marker is moved to the first 
empty line, 


BLANK lines (lines containing only spaces) are different from EMPTY lines (lines 


containing nothing at all). Only EMPTY lines are eliminated by NUMBER. 
Therefore, blank lines can still be kept in a text. 


SAVE (S) 
SAVE writes the text file, including the TITLE, all SET variables, and the 
complete text, on cassette tape or disk. When you type SAVE, the computer first 


asks; 


TAPE OR DISK (T/D)? 
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If you are using cassette tape, the computer prints READY CASSETTE and waits for 
you to ready the tape before continuing. If you are using disk, the computer 
asks FILESPEC? and waits for you to give the complete file specification. If you 
specify a drive number (such as ":1") the entire file specification must be 
enclosed in double quotation marks. 


If you want to abort the SAVE command at this point, type BREAK and GOTO 220. 
(If you abort it after this time, the file will be translated.) 


Because of the way that Level II Basic handles string variables, commas, colons, 
blank spaces and double quotation marks must be translated into special graphics 
characters so that the text can be restored to its precise form when read. 
Unfortunately, this translation process takes a significant amount of computer 
time -- possibly several minutes. You are always informed of where the program 
is in the translation process; the message 


TRANSLATING LINE 1 OF 45 


(where 45 is the total number of lines in the file) is printed and continuously 
updated. 


After the file has been saved on tape or disk, the program then asks if you want 
to continue with the same file. If so, the text must be untranslated, just as if 
it were loaded. This process takes the same amount of time. 


Text files are stored in the same way whether on tape or disk. When files are 
saved on tape, you are continually informed of the line currently being written. 


LOAD (L) 


LOAD reads a previously-saved text file from cassette tape or disk. LOADing the 
file restores everything to the condition it was in when the file was saved: all 
SET variables, the TITLE, and all text lines are retrieved. Any text previously 
in the buffer when LOAD is executed is lost. 


After a file is read, the special characters must be untranslated (see SAVE 
above). You are informed of the line currently being worked on. 


In other respects the operation of LOAD is similar to SAVE. 


KILL (K) 


KILL is used to kill disk files. The program asks for the file specification, 
and then kills the file if present. KILL may be used to "clean up" diskettes in 
order to have sufficient room to save text files. 


SET (V) 


SET (abbreviated "V") is used to set internal variables that control the 
printing process. These are line length, page length, left margin, spacing of 
text, page numbering, starting page number, and TITLE. When you type "V", the 
program asks a series of questions about each of these variables. If you do not 
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want to change the present value, simply hit ENTER without typing a new value. 
Only new values are inserted. The variables are as follows: 


LINE LENGTH (DEFAULT=60)? This indicates the number of characters in a line. It 
can be any value up to the maximum print length for your printer (but not greater 
than 255). It controls the manner in which words are separated during FILL, and 
is used to set the right margin by JUSTIFY. 


PAGE LENGTH (DEFAULT=50)? This indicates the number of lines on a page. During 
printing, the program waits for you to press ENTER following the completion of 
each page. 


LEFT MARGIN (DEFAULT=0)? This indicates a number of blank spaces to be printed 
at the left before each line, and can be used to indent the text on the paper. 
All text is printed with this margin; additional indentation can be inserted as 
blanks in the text itself. 


LINE SPACING (1=SINGLE, 2=DOUBLE, DEFAULT=1)? This controls the spacing between 
lines during printing. 1 is for single spacing, 2 for double, and any number 
that you input here is used as the number of spaces between lines. 


PAGE NUMBERING (1=YES, O=NO, DEFAULT=NO)? This variable controls the printing of 
both the TITLE and the page numbering. If you respond with zero, nothing is 
printed at the top of the page, but if you reply with 1, then both the TITLE (if 
present) and the page number are printed at the head of each page. This line is 
not counted as a line of text. 


STARTING PAGE NUMBER (DEFAULT=1)? This indicates the number of the first page of 
text. If you have long documents prepared as several text files, they can still 
be combined into one final document by setting the starting page number to the 
right value. Page numbers are printed so that they are right justified over the 
right margin of the text. 


TITLE (DEFAULT IS NONE)? The TITLE is a line of text that is printed 
left-justified at the top of each page of text, followed by the page number. It 
is printed only if PAGE NUMBERING is ON. The TITLE can appear to be centered if 
it begins with blank spaces. The same title is printed at the top of each page. 
The TITLE must not contain any punctuation. 


EDIT (E) 


EDIT is one of the most powerful commands in the text editor. It is used to edit 
a single line in a manner very similar to Level II Basic editing. When you type 
"E", the program asks you the line number you want to edit. If the line contains 
text, it is printed on the video display with the cursor flashing over the first 


character. (If there is no text, an error message is produced.) What you type 
at the keyboard determines how the line is edited. The following commands are 
recognized: 

SPACE Advances the cursor to the next character in the line unless you 


are at the end. Holding down the space bar moves the cursor 
continuously to the right. 


ENTER Terminates editing. 
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LEFT ARROW Backspace, unless you are at the first character. Holding 
down the left arrow key moves the cursor continuously to the 
left. 

I Insert characters. Following the "I", any characters that you type 


are inserted BEFORE the current cursor position. You can exit from I 
either by typing ENTER, which terminates editing, or SHIFT UP ARROW, 
which allows you to continue editing the line. Inserting is 
terminated at the end of the line. 


D Delete character. Only ONE character can be deleted at a time. All 
characters following that deleted are moved left one space. 


H Hack and Insert. All text following the current cursor position is 
deleted, and whatever you type is added to the line. Note that the 
cursor does not flash in this mode, indicating that there is no text 
in the line at the position where text is being added. It is impossible 
to add text past the end of the line length. It is also impossible 
to exit from "H" or "X" by typing SHIFT UP ARROW, as during "I". 


xX End of line and insert. The cursor is moved to the first position 
following the last character in the line. Thereafter the operation 
is identical to H. 


C Change character. Only ONE character is changed, to whatever character 
is typed after the "C". 


S Search character. The character following the "S" is searched for in 
the line. If it is found, the cursor is moved to that position; 
otherwise, it is not moved. 


During the EDIT process, upper and lower case letters are kept distinct, although 
everything is printed as upper case on the screen. 


JUSTIFY (J) 


JUSTIFY is used to right justify text lines. At first you are asked the range of 
lines you want justified. During the operation of JUSTIFY you are informed of 
the line number currently being worked on. 


JUSTIFY inserts additional spaces into the middle of a line, only where blank 
spaces already exist, to make the right margin vertically aligned. If a line 
contains no spaces at all, it will not be justified. It will also not be 
justified if it ends in a period, question mark, exclamation point, or right 
parenthesis. 


Lines that contain only a few words, requiring many spaces to be justified, may 
require that JUSTIFY be executed more than once. If a line ends with a blank 
space, it may appear not to be justified even though the program would consider 
it to be. When you end a line with SHIFT RIGHT ARROW, spaces are automatically 
inserted out to the end of a line. This is used when you want text such as 
titles to be centered on the page, or not to be justified for any other reason. 
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JUSTIFY pysically changes the text in the buffer, so that it is then stored with 
the internal spaces. 


* KEYBOARD REVERSE 


KEYBOARD REVERSE ("*") is used to reverse upper and lower case letters typed in 
at the keyboard. Since the TRS-80's SHIFT key produces lower case rather than 
upper case letters, this command is used to make the program work like a 
typewriter. 


KEYBOARD REVERSE first asks you the range of lines you want reversed, and _ then 
informs you of the line it is working on as the operation proceeds. The first 
letter of each sentence is automatically capitalized. Once you have REVERSED a 
passage of text, you can reverse it back if you desire. 


BROWSE (B) 


BROWSE is used to scroll through the text in order to locate specific lines. 
After typing "B", the program asks you to type the DOWN ARROW key to begin the 
process. A new line is added to the text each time you type DOWN ARROW, and if 
you are at the end of the screen typing the UP ARROW causes the text to scroll up 
the screen. UP ARROW is not effective past the first line of text. BROWSE is 
terminated by typing ENTER, and it does not change the text in any way. 


REVISIONS (OF PREVIOUS VERSION) 


Readers who have been using TEXT since the April 1979 issue will notice many 
revisions in the present version, although the same overall form of the program 
has been retained. New commands include the "*" KEYBOARD REVERSE, KILL, and 
BROWSE. CLEAR must now be typed in full, and "V" is used as the abbreviation for 
SET. The operation of FILL has been improved in many ways, most obviously by the 
printing of cursor positions across the top of the screen and asterisks to mark 
the end of the line on the right. The Left Margin variable has been added. In 
addition, you are always informed of the line number being operated upon by any 
command that might take a significant amount of time. Many other changes, too 
numerous to describe, have been included, 


PROBLEMS 


As before, there are many problems that must be taken into account when using 
TEXT. Most of these are a direct consequence of the fact that the program is in 
Basic. 


The speed at which you can type characters into the program is not always fast 
enough, and some letters that you type may not be inserted into the text. This 
is because of the time that it takes Basic to process each letter, particularly 
at the end of a line. (The program runs much more easily on the TRS-80 Model II 
because of its increased clock speed.) 


Sometimes the entire computer will "freeze up" momentarily, particularly when you 
are close to the end of the buffer. This is because Basic must sometimes 
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reallocate string space while the job is running. If this is the case, the 
cursor will not flash, and the computer will not even respond to an attempt to 
interrupt the program by typing BREAK. 


Another Basic problem is the necessity for translating special characters before 


executing a SAVE or after a LOAD. This process takes time, but unfortunately 
other methods do not save the text properly. 
Finally, if you ever want to interrupt the program and continue it without 


destroying any text in the buffer, type BREAK and GOTO 220. 


From (\) JOHN WILEY & SONS, Inc. 


Now! The book TRS-80 owners 
have been waiting for! 
Everything you need to know for 
maximum enjoyment of your 
TRS-80 


“The book is OUTSTANDING and is perfect for all LEVEL 
ll owners. It is geared toward the beginner, but does 
contain a wealth of information for more advanced 
programmers. TRS-80 BASIC teaches all of the BASIC 
commands through an enjoyable step-by-step 
approach...TRS-80 BASIC is the best thing to happen to 
LEVEL II owners!” —TRS-80 Monthly News Magazine 


TRS-80 BASIC 
A Self-Teaching 
Guide 


Bob Albrecht, Don Inman, & 
Ramon Zamora 


Packed with games, graphics, and 
practical applications, this eagerly 
awaited guide leads you step by step to 
maximum use and enjoyment of your 
new TRS-80. 

336 pp. 
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$8.95 paper 
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WILEY SELF-TEACHING GUIDES 
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BRAND NEW! 
TRS-80 BASIC 


Bob Albrecht, Don Inman, & Ramon Zamora 

Packed with games, graphics, and practical applications, this 
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and enjoyment of your new TRS-80. 

336 pp. _— April 1980 $8.95 paper 

“The book is OUTSTANDING... .the best thing to happen to 
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STRUCTURED COBOL 

Ruth Ashley 

This new guide to the computer language most widely used in 
business emphasizes structured programming to help make 
programs easier to understand and check...and less costly to 
debug. Covers the structure of COBOL, use of unit record files, 
control logic, tape and disk files, sequential files, random 
access files, and many other programming techniques. 

320 pp. April 1980 $8.95 paper 


Over 150,000 copies sold! 

BASIC, 2nd Edition 

Bob Albrecht, LeRoy Finkel, & Jerald R. Brown 

Readers of all ages have used this manual to teach themselves 

BASIC and apply it to decision making and problem solving in 

many fields including business, data processing, economics, 

statistics, education, psychology, and the humanities. This 

popular guide requires no special math or science background 

nor even access to a computer. 

325 pp. 1978 $7.95 paper 

“May possibly be the best bargain in the computer industry.” 
—Computers in Education 


BASIC FOR HOME COMPUTERS 

Bob Albrecht, LeRoy Finkel, & Jerald R. Brown 

In just days, you can get right down to programming in micro- 
soft BASIC and perform both practical applications and fun 
and games. 

336 pp. 1978 $7.95 paper 

“Takes you from knowing almost nothing to knowing almost 
everything. ...Albrecht et al. have done it again!” —Kilobaud 


INTRODUCTION TO DATA 
PROCESSING, 2nd Edition 


Martin L. Harris in consultation with Nancy B. Stern 

Here’s a clear introduction to how computers work, what data 
processing is, how it’s organized, types of equipment used, and 
how a data processing system is designed. This new updated 
edition incorporates all recent advances in telecommunica- 
tions, microcomputers, integrated circuits, and intelligent 
terminals as well as full discussion of computer system uses. 


352 pp. 1979 $5.95 paper 


Wiley Self-Teaching Guides also teach FORTRAN, Job Control 
Language, Flowcharting, ATARI BASIC, and Background Math 
for Computer Problem Solving. 


Look for them at your favorite bookstore or computer shop, or 
write to Pam Byers, Dept. A 7602. 


() JOHN WILEY & SONS, Inc. 
\y) 605 Third Avenue 
New York, N.Y. 10016 


In Canada: 22 Worcester Road, Rexdale, Ontario 


Prices subject to change without notice. 0-7602 
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CLS:PRINT@464,"SUPER BASIC TEXT EDITOR“ 

REM COPYRIGHT <C> BY HUBERT S. HOWE, JR. 

DEFINT A-Z 

CLEAR 24000:NL=490 
DIM AS$(NL) 
C=0:S=1:L=0:LA=0: LM=0:SP=1: PN=@0: PG=1: PL=56: LL=69:TS$="":KK=64 
QS=CHR$ (34) : LFS=CHR$ (10) 

BS="_":BBS="" ":CCS=CHR$ (143) : BRS=CHR$ (96) : FFS=CHR$ (12) 
AS=INKEYS : LFAS=""THEN9@ELSECLS 

PRINT@448,"DO YOU NEED HELP IN USING THIS PROGRAM (Y/N) "; 
INPUTYS 

IFYS="Y" THEN1L69@ 

PRINT: INPUT" COMMAND"; C$ 

ON ERROR GOTO @ 

HH=9 

IFC$="F" THENL=LA:GOTO5 39 

IFCS<>"K" THEN37@ 

ONERRORGOTO2170:REM KILL 

INPUT" FILESPEC"; FS 

PRINT“PLEASE CONFIRM YOU WANT TO KILL--";Q$;FS$; 
PRINTQ$;"--BY ENTERING 'YES'"“;:INPUTGS$ 
IFG$<>"YES" THEN220 

PRINT“PLEASE STAND BY":KILL FS 

PRINTOS; F$;Q0$;"--HAS BEEN KILLED!!!!" 
FORUU=1T0290 : NEXTUU :GOTO49 

IFC$="CLEAR" THEN1G 

IFCS$="D"THEN1 449 

IFCS$="R"THEN1499 

IFCS="I"THEN1520 

IFCS="P"THEN112¢ 

IFCS="N"THEN155@ 

IFCS="M"THEN169@ 

IFCS$="H" THEN169@ 

IFCS$="V"THEN177@ 

IFCS$="E"THEN1889 

IFCS="L" THEN2960 

IFCS="S"THEN22890 

IFC$="J" THEN3116 

IFCS="B"THEN3416 

IFCS="*"THEN3649 

GOTO220 

CLS: IFL<1THEN610:REM FILL 
IFLL>6O@THENKK=1 28 ELSEKK=64 
FORJ=OTOL-1:C=J* KK: IFC>958THENPRINT@960, BS :C=896 
IFJ>OPRINT@C,J; 

IFLEN (A$ (J) ) <1 THEN60G 
IFJ>@THENPRINTTAB (4) ;A$(J) ; 

IFJ<L-1THENPRINT 

NEXTJ 


GOSUB930:IFL>@THENPRINT@C,L;TAB(4) ;:C=C+4 
IFLEN (A$ (L) ) >OTHENS=LEN (A$ (L) )+1:PRINT@C,A$(L) ;:C=C+S-1 
IFLL>69THENKK=1 28 ELSEKK=64 
FORK=1T0896/KK 
PRINT@LL+3+(K*KK) ,"*"; 
NEXTK 
PRINT@O," 1 19 20 
PRINT" 50 60"; 
IFHH=1GOTO71¢ 
IFL=0THENAS (L) =A$ (L) +LF$:A$=B$ :GOTO98@ 
PRINT@C,CCS$; : AS=INKEYS : [FAS="""THENPRINT@C,B$; :GOTO719 
A=ASC (A$) : IFA>3 LANDA<9 6GOTO89B 
IFA=13THENAS=BS :GOTO989 
IFA=8THEN99@ 
IFA=9THEN10660 
IFA=24THEN1 639 
IFA=10THEN97@ 
IFAS=BRSTHENPRINT:GOT0220 
IFA=25THEN1999 
PRINT@C,AS; : A$ (L) =A$(L) +A$:S=S+1:C=C+1 
IFS<INT(LL+1-HH) THEN716 
IFHH=1THENHH=9 : PRINT: GOT03939 
$=1:L=L+1 
IFL>NLTHENL=NL: PRINT“ BUFFER FULL" :GOTO229 
IFLEN (A$ (L) ) <>OTHENPRINT:GOTO229 
IFL> LATHENLA=L 
IFAS=BSTHEN619 
FORI=LLTO@STEP-1: IFMID$ (A$(L-1) ,1,1) =BSTHEN9OD 
C=C-1:NEXTI:GOTO619 
IFI=LLTHEN61@ ELSEFORJ=I+1TOLL:PRINT@C,BS; 
A$ (L) =A$ (L) +MID$ (A$ (L-1) ,J,1) 
S=S+1:C=C+1:NEXTJ:A$ (L-1) =LEFTS (A$ (L-1) ,I-1) :GOT0619 
IFLL>6@THENKK=1 28 ELSEKK=64 
C=L*KK: IFC<959THENRETURNELSEPRINT@960 , BS 
IFKK=128THENPRINTELSE96@ 
C=896:RETURN 
A$ (L) =A$(L)+FF$:A$=B$:REM DOWN ARROW 
PRINT@C,A$;:GOTO820:REM ENTER 
IFS<2THEN1@20:REM BACKSPACE 
C=C-1:PRINT@C," “;:S=S-1:A$(L)=LEFTS (A$(L) ,S-1) :GOTO710 
IFS=1THENAS(L)="_ ":GOTO719 
IFS<2THEN710:REM SHIFT LEFT ARROW 
A$ (L) ="":S=1:GOSUB930 
PRINT@C,CHR$ (30) :C=C+4:GOTO719 
IFS>LL-6THEN710:REM RIGHT ARROW 
FORI=STOS+4:A$ (L) =A$ (L) +B$ : PRINT@C , BS; :C=C+1:NEXTI 
$=S+5:GOTO71¢ 
IFS>=LLTHEN83@:REM SHIFT RIGHT ARROW 
PRINT@C,B$ : FORI=STOLL: A$ (L) =A$ (L) +B$ :NEXTI:GOTO8 30 


PRINT: INPUT"PRESS ENTER WHEN READY TO CONTINUE";EN$:RETURN 
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1128 
1138 
1156 
1178 
1186 
1196 
1206 
1219 
1226 
1236 
1246 
1250 
1260 
1270 
1289 
1290 
1360 
1330 
1340 
1358 
13606 
1376 
1388 
13998 
1466 
1419 
1446 
1450 
1466 
1476 
1486 
1496 
1506 
15198 
1526 
1536 
1546 
1558 
1555 
1568 
1578 
1589 
1596 
1668 
1616 
1626 
1639 
1646 
16598 
16698 


CLS:REM PRINT 

INPUT"PRINT LINE NUMBERS (Y/N) ";N 

INPUT“LINE PRINTER OR VIDEO DISPLAY (P/V)";P$ 
IFP$="P"THEN1 278 

CLS: PP=PG-1: FORK=1TOLASTEPPL: PP=PP+1 
IFPN<1THEN1210ELSEPRINTTAB (LM) ;T$; 
PRINTTAB(LL+LM-7) ;"PAGE";:PRINT USING" ###"; PP 
FORJ=KTOK+PL-1: IFJ>LATHEN1 260 
IFSP>@THENFORM=1TOSP: PRINT: NEXTM 
IFNS="Y"THENPRINTJ;"_ "; 

PRINTTAB(LM) ;AS(J) ; 

NEXTJ:GOSUB1119 

PRINTCHRS (30) :NEXTK:GOTO220 

PRINT“READY PRINTER" :A$="" 

INPUT" (TYPE V TO PRINT ON VIDEO DISPLAY) ";A$ 
IFAS="V"'THEN118@ 

PP=PG-1: FORK=1TOLASTEPPL: PP=PP+1 
IFPN<1THEN1359ELSELPRINTTAB (LM) ; TS; 
LPRINTTAB(LL+LM-7) ;"PAGE";:LPRINT USING" ###"; PP 
FORJ=KTOK+PL-1: IFJ>LATHEN1419 
IFSP>STHENFORM=1TOSP:LPRINT" “:NEXTM 
IFNS="Y"'THENLPRINTJ;" "; 
IFLEN(A$(J))=@THENLPRINT" “:GOTO14G9 
LPRINTTAB(LM) ;AS (J); 

NEXTJ :GOSUB1119 

LPRINTFFS : NEXTK:GOTO220 

INPUT"FIRST LINE TO DELETE";N1:REM DELETE 
INPUT"LAST LINE TO DELETE";N2:I1FN1>NLTHENN1=NL 
IFN1<OTHENN1=0 

IFN2>NLTHENN2=NL 
FORI=N1TON2:A$ (I) =": NEXTI:S=0:GOT0220 
INPUT"LINE NUMBER";L:REM REPLACE 

IFAS (L) =""THENPRINT"CAN'T REPLACE LINE"; L:GOT0220 
AS (L) ="":S=1:HH=1:GOT0530 

INPUT"STARTING LINE";L:REM INSERT 

IFLEN (A$ (L) )=@THENS=1: HH=] :GOTO538 
PRINT"CAN'T INSERT AT LINE"; L:GOTO220 
CLS:K=1:REM NUMBER 

PRINT@G,"“NUMBERING LINE";K 

IFK>=LATHEN229 

IFLEN (A$ (K) ) <>@THENK=K+1:GOTO1555 
FORJ=KTOLA-1:A$ (J) =A$ (J+1) :NEXTJ 

A$ (LA) =""": LA=LA-1:GOTO1555 

INPUT"FIRST LINE TO MOVE";N1:REM MOVE 

INPUT" LAST LINE TO MOVE";N2 

INPUT"FIRST NEW LINE";N3 

FORJ=N1TON2 

IFLEN (A$ (N3) ) =OTHEN1668 

PRINT" LINE" ;N3; “ALREADY OCCUPIED.“ :GOT0O229 

A$ (N3) =A$ (J) :A$ (J) ="" 
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1670 
1689 
1699 
1706 
1716 
1726 
1736 
1746 
1756 
1766 
1765 
1770 
1786 
1796 
1886 
1816 
1820 
1849 
1850 
1868 
188¢ 
1966 
1916 
1936 
1959 
1960 
1976 
1986 
1999 
2008 
2610 
2626 
2638 
2040 
2058 
2066 
2076 
2086 
2090 
2108 
2116 
2126 
2130 
2140 
2158 
2179 
2186 
2198 
2200 
2218 


N3=N3+1: IFN3> LATHENLA=N3 

NEXTJ :GOTO228 

CLS:PRINT"LEGAL COMMANDS ARE AS FOLLOWS:" 

PRINT"F FILL","P PRINT","H HELP" 

PRINT"R REPLACE","I INSERT","D DELETE“ 

PRINT"N NUMBER","M MOVE","E EDIT" 

PRINT“L LOAD","S SAVE"“,"K KILL" 

PRINT"J JUSTIFY","B  BROWSE","V SET" 

PRINT" CLEAR","“* KEYBOARD REVERSE" 

PRINT"TYPE 'SHIFT-@' TWICE TO RETURN TO COMMAND MODE." 
GOTO220 

CLS: PRINT@328,"INPUT LINE LENGTH (DEFAULT=60) "; 
INPUT LL 

INPUT"PAGE LENGTH (DEFAULT=58) "; PL 

INPUT"LEFT MARGIN (DEFAULT=@) "; LM 

INPUT"LINE SPACING (1=SINGLE, 2=DOUBLE, DEFAULT=1)";SP 
INPUT" PAGE NUMBERING (1=YES, ®=NO, DEFAULT=NO) "; PN 
INPUT“STARTING PAGE NUMBER (DEFAULT=1) “;PG 
INPUT“TITLE (DEFAULT IS NONE) ";TS$ 

GOTO226 

INPUT“LINE NUMBER";L:CLS:PRINT:REM EDIT 

IF LEN(A$(L))<1l THEN PRINT“CAN'T EDIT LINE“;L:GOTO 220 
PRINT: PRINTL; TAB (4) ;AS$(L) ; 

C=132:S=1: I1FL>99THENC=69 

GOSUB2578 

IFAS="_ “THEN25398 

IFASC (A$) =8 THENGOSUB255@:GOTO19598 

IFASC (A$) =13THEN3010 

IFAS="I"THEN2720 

IFAS="D" THEN28598 

IFAS="H" THEN2889 

IFAS="X"THEN29 20 

IFAS$="C"THEN2976 

IFAS="S"THEN3960 

GOTO1958 

GOSUB2459: IFA$="D"THEN21208:REM LOAD 
INPUT#-1,LA,LM,SP,PN,PG,PL,LL,T 
IFT>@THENINPUT#-1,T$ 
FORL=1TOLA:PRINT@512,"“CASSETTE RECORDER NOW LOADING"; 
PRINT" LINE";L;"OF";LA; "LINES": INPUT#-1,AS (L) 
NEXTL:GOSUB4058 :GOTO228 

PRINT"PLEASE STAND BY--LOADING OF “;Q$;FS$;Q$; 
PRINT" IN PROGRESS" 

ON ERROR GOTO 21786 

OPEN"I",1,F$:GOTO2208 

PRINT“NO TEXT BY THE NAME--";Q$;F$;Q$; 
PRINT"--PLEASE RE-ENTER" 

RESUME 220 

INPUT#1,LA,LM,SP,PN,PG,PL,LL,T 

IFT>OTHENINPUT#1,TS 
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2220 FORL=1TOLA: INPUT#1,A$(L) :NEXTL:CLOSE 
2249 GOSUB4050 

eet Ebina boric the aaa oes AND READY FOR"; IFASC (A$) =27THEN1959 

2268 PRINT" EDITING" :GOTO a . 

2288 GOSUB245G :GOSUB4000: IFAS="D" THEN2340:REM SAVE ee 

2290 PRINTS] GA LMxOR rE, PGs Ploy lle LENCES) A$ (L) =L$+A$+R$ : S=S+1:C=C+1: PRINTRS ; :GOT02790 

2905 CP LEN( Te) +0 SSBNP RIN Te 7 oe ; ; GOSUB2660 :GOSUB2670:PRINTCHR$ (30) ;:REM DELETE 

2310 FORL=1TOLA:PRINT@512,"CASSETTE RECORDER NOW SAVING"; eos hieodeause ls QURUbI ING esd 

2320 PRINT" LINE";L;“OF";LA; “LINES” :PRINT#-1,AS (L) AS (L) =L$+R$: PRINTRS : PRINT@132+LEN(AS$(L))," “:GOTO1950 
2330 NEXTL:GOSUB4200:GOT0220 PRINTCHRS (30) :REM HACK 

2349 PRINT"PLEASE STAND BY--";Q$;FS$;Q$; HH=1 

2358 PRINT"--IS BEING SAVED ON DISK" IFS>1THENAS (L) =LEFTS (A$ (L) ,S-1) 

2360 OPEN“O",1,F$ 6 GOTO64B 

2370 PRINT#1,LA,LM,SP,PN,PG,PL,LL,LEN (TS) GOSUB2658: GOSUB2679: REM X 

2380 IFLEN(TS) >@THENPRINT#1,TS$ GOSUB2700:PRINTRS; : C=C+LEN(A$(L))-S+1 

2396 FORL=1TOLA: PRINT#1,AS$(L) :NEXTL:CLOSE:CLS S=LEN(AS$(L) ) +1 

2420 PRINTOS;FS$;0$; IFS>=INT(LL-1) THEN3939 

2430 PRINT"--NOW PERMANENTLY STORED ON DISK" GOTO2889 

2440 GOSUB4209:GOTO229 GOSUB257%:REM CHANGE 

2458 CLS PRINT@C,AS; 

2460 INPUT"TAPE OR DISK (T/D)";A$ GOSUB269@:S=S+1:GOSUB2700:S=S-1 

2480 IFAS="T"THEN252QELSEIFAS="D" THEN2519 AS (L) =L$+A$+R$ : S=S+1:C=C+1:GOTO195B 

2490 PRINT“ ILLEGAL ENTRY--PLEASE ENTER 'T' OR 'D'":GOT02460 IFLEN (AS (®) ) >=LL-1THEN39830:REM ENTER 

2519 INPUT"FILESPEC";F$:RETURN FORI=STOLEN(AS$(L) ) :PRINT@C,MID$(AS(L) ,1I,1) ;:C=C+1l1:NEXTI 
25206 PRINT"READY CASSETTE" :GOSUB1110:RETURN PRINT:S=1:IL=@0:IFLEN(AS$(L) ) <=LL-2THEN220 

2530 IFS>=LEN(A$(L) ) THEN195@ PRINT“ LINE"; L; “CONTAINS”; LEN(AS(L) ) ;"CHARACTERS." 
2549 PRINT@C,MID$(A$(L) ,S,1) ;:S=St1:C=C+1:GOTO1956 INPUT"HIT ENTER TO RETURN TO COMMAND MODE"; V:GOTO220 
2550 IFS<2THENRETURN GOSUB2686 :GOSUB2579:PRINT@C,MID$(A$(L) ,S,1);:REM SEARCH 
2560 PRINT@C,MIDS(A$(L) ,S,1) ;:S=S-1:C=C-1: RETURN CS=C+1 

2579 PRINT@C,CCS$; 686 FORI=S+1TOLEN(A$(L)) :IFMID$(A$(L) ,I,1) <>ASTHEN3196 
2589 IFIL=1THEN2619 S=1:C=CS:GOT01950 

2590 IFPEEK (16444) =128THENAS=CHR$ (32) :GOTO2630 CS=CS+1:NEXTI:GOTO1950 

2600 IFPEEK (16444) =32THENAS=CHR$ (8) :GOT02638 PRINT: LL=LL-1:PS="":REM JUSTIFY 

2610 AS=INKEYS:IFAS=""THENPRINT@C,BS; :GOTO2579 INPUT" JUSTIFY ALL LINES (Y=YES ,N=NO) ";P 

2620 IFASC(AS$) =13THENPRINT:GOT03930 IFP$="N"THEN3179 

2638 IFASC(A$) =8THENGOSUB2550:GOTO2576 IFPS="Y" THENL=@ :JL=LA:GOT03216 

2648 RETURN PRINT" ILLEGAL ENTRY--PLEASE ENTER 'Y' OR 'N‘“:GOTO3129 
2658 IFLEN(A$(L) ) >=LLTHEN195@ELSERETURN INPUT“ENTER FIRST LINE TO BE JUSTIFIED"; L:L=L-1 

2660 IFLEN(A$(L) ) >1THENRETURNELSE1956 IFL<@THEN3170 

2678 PRINTCHRS (8) ; INPUT"ENTER LAST LINE TO BE JUSTIFIED";JL 

2680 IFS>=LEN(AS(L) ) THEN195@ELSERETURN IFJL> LATHEN319@ 

2690 LS$="":IFS>1THENLS$=LEFTS (A$ (L) ,S—-1) : RETURN L=L+l 

2700 R$="":IFS<LEN(A$(L)) THEN RS=RIGHTS (AS (L) ,LEN(A$(L) )-S+1) IFLEN (A$ (L) ) <1ORLEN (A$ (L) ) >=LLTHEN3 3508 

2710 RETURN PRINT@960,"JUSTIFY NOW WORKING ON LINE";L;"OF";LA; "LINES"; 
2720 IFLEN(AS$(L) ) >=LL-1THEN3@30ELSEGOSUB2658:REM INSERT ES$=RIGHTS (A$ (L) ,1) 

2730 IL=1 IFLEN (AS (L) ) <.8*LLTHEN3 359 

2740 FORK=1T0896/KK FORI=1TOLEN (A$ (L) ) 

2750 PRINT@LL+3+(K*KK)-64,"*"; IFMIDS$ (A$(L) ,I,1) <>B$THENNEXTI :GOT03359 

2760 NEXT K I=FIX (LEN(A$(L))/2) :J=I+1 

2770 PRINT@O," Be 16 20 39 i IFMID$ (A$ (L) , 1,1) =BSTHENGOSUB3379 

2780 PRINT" 58 60"; I=I-1: IFI<2THEN3219 

2799 IFLEN(A$(L) ) >=LL-1THENPRINT:GOTO3030 

2800 GOSUB2579:PRINT@C,AS; : IFASC (A$) =13THENGOTO3049 
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3310 IFLEN(A$(L)) >=LLTHEN3359 

3320 IFMID$(A$(L) ,J,1) =B$THENGOSUB3399 FORL=1TOLA:REM TRANSLATE 

3330 J=J+1:IFJ>=LLTHEN3210 PRINT@128,"TRANSLATING LINE";L;"OF";LA 
3340 IFLEN(A$(L) ) <LLTHEN3290 IFLEN (A$ (L) ) <1THEN4049 

3350 IFL=>JLTHEN3369ELSE3210 FORI=1TOLEN (A$ (L) ) :M$=MID$ (A$ (L) »Iy1) 


3360 LL=LL+1:GOTO226 a. ie i iM Aen 
3370 LS=LEFTS(AS$(L) ,I) :RS=RIGHTS (A$ (L) ,LEN(A$(L) ) -1) he r" ORMS=": “ORMS= ORMS$=Q$ THENGOSUB4129 


3380 I=I-1:GOT03400 
= eee Siti be NEXTL: RETURN 
3390 LS=LEFTS(A$(L) ,J) :RS=RIGHTS (AS$(L) ,LEN(A$(L))-Jd) :J=J+1 SSL RTEGLA REM UNVGANSLAS 


3490 A$(L)=L$+B$+R$: RETURN 
P ' an ‘ ' “ PRINT@192,“UNTRANSLATING LINE";L;"OF";LA 
341@ CLS:PRINTTAB(15) ;"START SCAN WITH DOWN ARROW IFLEN (A$ (L)) <1THEN4996 


3420 L=l 

3430 IFPEEK (16444) =16ANDL<=LATHEN3 470 pty let a ta 1)) 

3449 IFPEEK (16444) =1THEN220 IFM>128THENGOSUB4190 

3450 IFPEEK (16444) =8THEN3510 NEXT 

3468 GOTO3439 NEXTL: RETURN 

347@ PRINTL;TAB(4) ;A$(L) GOSUB4159 

3486 FORI=1T0590:NEXTI MS=CHRS$ (M-128) :GOT0413@ 

3498 L=L+1 GOSUB415@ :MS=CHR$S (ASC (M$) +128) 

3588 GOTO3438 AS (L) =L$+M$+RS$ : RETURN 

3518 L=L-2 LS=""": IFID>D1LTHENLS=LEFTS (A$ (L) ,I-1) 
3520 IFLL>6@THENIFPEEK (16444) =8ANDL>=7THEN3579 RS=""': TFI<LEN (A$ (L) ) THENRS=RIGHTS (A$ (L) , LEN(A$(L) )-I) 
3530 IFLL<=60THENIFPEEK (16444) =8ANDL>=15THEN3579 RETURN 

3540 IFPEEK (16444) =16THENL=L+2:GOT03430 INPUT"CONTINUE WITH THIS TEXT(Y/N) ";AS 
3550 IFPEEK (16444) =1THEN220ELSE3526 IFAS="Y"THENGOSUB4@5@ 

3579 CLS RETURN 

3580 IFLL>60THENK1=6ELSEK1=14 INPUT"REVERSE ALL LINES (Y/N) “;AS 

3599 FORL=L-K1TOL+K1 IFAS="Y" THENN1=1:N2=LA:RETURN 

3608 PRINTL;TAB(4) ;A$(L) :NEXTL INPUT"FIRST LINE TO REVERSE";N1 


3628 FORI=1T054:NEXTI:GOTO3519 " “.ND- 
3648 PRINT:GOSUB4306:REM KEYBOARD REVERSE SUGEEST. WEHS WO! REVERP ET INSe BSTUSN 


3650 FORL=N1TON2 

3668 PRINT@960,"KEYBOARD REVERSE WORKING ON LINE";L 
3665 PRINT"OF";LA;"“LINES"; 

36798 I$=A$(L) 

3689 OS="":IFIS=""THEN38 38 

3698 FORK=1TOLEN(IS) 

3708 D=ASC(MID$(I$,K,1)) 

3719 IFK=1THEN3740 

3720 IFK>=2ANDK<=(LEN(IS$) -1) ANDD=73THEN3730ELSE3740 
3730 IFMID$(I$,K-1,1)=" “ANDMIDS$(I$,K+1,1)=" “THENBC=1 
3748 IFK=lLANDD=73ANDMID$(I$,K+1,1)=" “THENBC=1 

3759 IFK=1ANDL=1THENBC=1 

3768 IFBC=SANDD>95ANDD<128THEND=D-32:GOTO3860 

3778 IFD>63ANDD<96THEND=D+32 

3780 IFBC=1ANDD>95ANDD<128THEND=D-32: BC=8 

3796 IFD=460RD=3 30RD=6 3THENBC=1 

388% OS=0$+CHRS$(D) 

3818 NEXTK 

3826 A$(L)=0$ 

3838 NEXTL:GOTO226 


= RACET computes = 


702 Palmdale, Orange CA 92665 


RANDOM FILE DISK SORT/MERGE FOR THE TRS MOD-I/II 


E-RACET coweures 
TG2 Paimaeie Orange CA $2065 

RCT 

Taser 1/5/60 


xx * FAST kx LARGE SYSTEM FEATURES x xx FAST kx 
SORT AN 85K DISKETTE IN LESS THAN THREE MINUTES! 
RECORDS PHYSICALLY SORTED NO KEY-FILES REQUIRED! 
MACHINE LANGUAGE STAND-ALONE SYSTEM 


Now the TRS-80 user has available the professional tool required for BUSINESS applications. Perfect for those 
LARGE mailing lists, inventory control, or report generation systems. 


v Sorts large multiple diskette files on a minimum one drive Mod-Il or two drive Mod-| disk system. 
v Allrecords are physically rearranged — no key files are required. 

~ Sorts random files created by BASIC, including files containing sub-records spanning sectors. 
- 


Sorts on one or more fields in ascending or descending order. Fields may be character, binary integer, or 
floating point. 


v The sorted output file may optionally have fields deleted, rearranged, or padded. 
v» Sort commands can be saved for reuse in production applications. 

~ Single sort, merge, or mixed sort/merge operations may be performed in a single DSM application. 
v Sorted output may be written to a new file, or replace the original input file. 


DSM is written entirely in machine language for fast sorting. The sorting operations use very efficient techniques. 
Internal operations are optimized to allow running at maximum disk I/O speeds. The sort timings shown below 
illustrate the speed of DSM: 


Type File Size Time Type File Size Time 
(Byte) (Sec) (Bytes) (Sec) 

SORT 16K 33 SORT 340K 1081 

SORT 32K 49 SORT 680K 2569 

SORT 85K 173 SORT + 85K 

SORT 170K 445 MERGE 1275K 1757 


Times will vary based on sort and system configurations. The sort times shown above are for a Mod-! 48K 4-drive 
configuration, 64 byte records, and 5 sort keys. Model-II sort times are TWICE AS FAST! 


DSM requires only a few simple commands for a given sort application. The sort commands may be saved for 
production applications, requiring only a single DOS command for execution. 


The sort commands are entered in any order in a free format. Default values are provided for user convenience. 
The example below illustrates sorting a typical mailing list in order by last name, first name, and ZIP code. 

10’ FILEIN ERECE=64, TYPE=FB 

20’ SORTIN INMAIL(DISK1) 


30’ FIELD LNAME(CH,20,11),-FNAME(CH,10,1),ZIP(BI,2,31) 
40’ UNIT 1,2,3 
50’ WORK DISKA,DISKB 


60’ SORTOUT OUTMAIL(DISK2) 


The “FILEIN” statement describes the length and type of records (FB = fixed blocked). The ‘‘SORTIN” statement 
identifies the input filespec (‘‘INMAIL” on diskette “DISK1”). The “FIELD” statement specifies the name, type, 
length, and starting column number of each field (CH=character, Bl=binary integer). All other unspecified 
fields would be automatically carried along in the sort. The “UNIT” and “WORK” statements specify the disk 
drive and work diskettes available for use by DSM. The ‘‘SSORTOUT” statement specifies the output filespec for 
the sorted records. 


The application above could be changed to sort in descending order by ZIP code by adding the following command: 
70’ -ZIP,LNAME,FNAME 

Adding the following statements would keep only the fields LNAME and ZIP, deleting FNAME and other un- 

specified fields from the sorted output file: 


80’ KEEP LNAME,ZIP 
90’ FILEOUT LRECL=32 


Note in the above example the resulting sub-records would be only 32 bytes in length. 


The many powerful features of DSM exceed those commonly found on even the largest computer systems. 
Additional features include: 


v Ability to specify multiple file input from the same or different diskettes. For example LINE #20 above could 
be written: 20’ SORTIN IN1(DISK1),IN2(DISK2) 


v Number of input records can be specified. For example, Line #20 above could be written: 
20’ SORTIN INMAIL(DISK1,1247). 


The ‘SORDER” option may be used to retain input sequence for identical records. 
The “PRINT” and ‘‘*MSGLEVEL” options may be used to print and/or display DSM messages. 
The ‘‘MEMORY” option allows the user to protect upper memory for other purposes (such as RS232 drivers). 


The “INEXIT” and “OUTEXIT”’ options allow the user to use machine language subroutines to intercept 
and control input and final sorted output records. 
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ORDER DSM FOR MobD-| AT $75 OR DSM FOR MobD-I! AT $150 


GSF MACHINE LANGUAGE SORTS FOR THE TRS MOD II 


A Generalized Subroutine Facility (GSF) is available now for the TRS Mod II. Machine Language functions 
available through USR calls include: 


Multi-key Multivariable In-Memory Sort. 

Multi-key Character String In-Memory Sort. 

USR PEEK and POKE capability; both byte and word. Fetch argument. 
Compress and Uncompress data. 

Move blocks of data. 

Propogate across arrays. 


The sorts are extremely fast and flexible. Sort 1000 elements in six seconds! 5000 elements in 26 seconds! 
Carry up to 15 arrays together with multiple mixed ascending/descending keys! Sort on multiple columns in 
character string sort mode. One line call from BASIC. 


GSF FORTHE Mop 11 $50 


POO COCO OOS OSHHSOHESEHSSSOOSESESSES SSO HEE EHSHESOSSHSHHEHEOOHH OHSS SES SOSESH OTE SOOTHES O OEE OOOOH OHS OOO OEE ecceasoveeeserons SPeecececreevescccrces 


‘COPIPUTAOMNICS: 2s 


: =~ LINE 
Box 149 New City, New York 10956 (914) 425-1535 


PLEASE SEND ME: 


CREDIT CARD NUMBER EXP. DATE. 
MODEL | DSM $75 SIGNATURE 
MODEL II DSM $150 NAME 
eee ADDRESS STATE ZIP. 


*** ADD $2 POSTAGE WITHIN THE U.S.A. - ADD $3 POSTAGE OUTSIDE OF THE U.S.A. *** 
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YTHING FOR YOUR TRS-80'e ce 


TRS-80 is a trademark of the Radio Shack Division of Tandy Corporation 


NEW JUST PUBLISHED 


From (j) JOHN WILEY & SONS, Inc. 


Now! The book TRS-80 owners 
have been waiting for! 
Everything you need to know for 
maximum enjoyment of your 
TRS-80 


“The book is OUTSTANDING and is perfect for all LEVEL 
ll owners. It is geared toward the beginner, but does 
contain a wealth of information for more advanced 
programmers. TRS-80 BASIC teaches all of the BASIC 
commands through an enjoyable step-by-step 
approach...TRS-80 BASIC is the best thing to happen to 
LEVEL Il owners!” —TRS-80 Monthly News Magazine 


Vutwduckiow..... 


Chapter 1 The Radio Shack TRS-80™ Computer 
Chapter 2 Getting Started 

Chapter 3 Statements and Commands 
Chapter 4 FOR-NEXT Loop 

Chapter 5 Random Numbers 

Chapter 6 Interaction 

Chapter 7 Entering and Displaying Data 


TRS-80 BASIC ZB 
ASelf-Teaching 2 | 


Guide 


Bob Albrecht, Don Inman, & 
Ramon Zamora 


Packed with games, graphics, and 
practical applications, this eagerly 
awaited guide leads you step by step to 
maximum use and enjoyment of your 
new TRS-80. 

336 pp. 


April1980 (0 471 06466-1) 


$8.95 paper 


Chapter 8 Strings 

Chapter 9 One-Dimensional Arrays 

Chapter 10 Multi-Dimensional Arrays 

Chapter 11 Editing and Debugging Programs 
Chapter 12 Graphics, Games & Programs For The Home 
Appendix 

Index 


GUARANTEED SATISFACTION 


WE ARE THE ONLY SOFTWARE COMPANY THAT OFFERS A REFUND WITHIN 30 DAYS ON ALL SOFTWARE (H & E COMPUTRONICS 
MONTHLY NEWSMAGAZINE SUBSCRIBERS ONLY). WE DO CHARGE A $3 PENALTY TO COVER POSTAGE AND HANDLING. 
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Box 149 New City, New York 10956 


PLEASE SEND ME TRS-80™ BASIC, A SELF-TEACHING GUIDE ($8.95) 


CREDIT CARD NUMBER 


= 


HOUR 
GB) 24 onver 
LINE 
(914) 425-1535 


EXP. DATE 


SIGNATURE 


NAME 


ADDRESS 


STATE ZIP 


*** ADD $2 POSTAGE WITHIN THE U.S.A. - ADD $3 POSTAGE OUTSIDE OF THE U.S.A. *** 


THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80™* MICROCOMPUTER 


<= (COMPUTROMNICS: = 
MONTHLY NEWSMAGAZINE 
Practical Support For Model I & Il 


RTICLES PUBLISHED IN OUR FIRST 12 ISSUES 
PRACTICAL APPLICATIONS  inctupe THE FOLLOWING: 


e 
A COMPLETE INCOME TAX PROGRAM (LONG AND SHORT FORM) 
e BUSINESS * INVENTORY CONTROL 
@ STOCK MARKET ANALYSIS Sie ne GATS 
e WORD PROCESSING PROGRAM (FOR 
° GA M B Li N G bd GAM E ) @ LOWER CASE MODIFICATION FOR YOUR VIDEO MONITOR OR PRINTER 
e PAYROLL (FEDERAL TAX WITHHOLDING PROGRAM) 
> ED UCATI ON e EXTEND 1G:DIGIT ACCURACY TO TRS-80™ FUNCTIONS (SUCH AS 
SQUARE ROOTS AND TRIGONOMETRIC FUNCTIONS) 
e PE RSO NAL Fl NANCE e NEW DISK DRIVES FOR YOUR TRS-80™ 
e PRINTER OPTIONS AVAILABLE FOR YOUR TRS-80™ 
® B E G I N N E R’S Cc O R N E R e para SELECTION SYSTEM***ARITHMETIC TEACHER 
e MPLETE MAILING LIST PROGRAMS (BOTH FOR DISK OR CASSETTE 
e NEW PRODUCTS SEQUENTIAL AND RANDOM ACCESS) 
° SOFTWARE EXCHANGE > CHECKBOOK MAINTENANCE PROGRAM 
e 
e sates Il UPDATES***LEVEL II INDEX 
e REDIT CARD INFORMATION STORAGE FILE 
e MARKET PLACE ° pe het GUIDE TO MACHINE LANGUAGE AND ASSEMBLY 
A IAGE 
e QUESTIONS AND ANSWERS LINE RENUMBERING 
e AND CASSETTE TIPS, PROGRAM HINTS, LATEST PRODUCTS 
e PROG RAM PRINTO UTS COMING SOON (GENERAL LEDGER, ACCOUNTS PAYABLE AND 
RECEIVABLE, FORTRAN-80, FINANCIAL APPLICATIONS PACKAGE, 
....AND MORE PROGRAMS FOR HOMEOWNERS, MERGE TWO PROGRAMS, 
STATISTICAL AND MATHEMATICAL PROGRAMS (BOTH 
ELEMENTARY AND ADVANCED)... AND 
WORD PROCESSING PROGRAM 
(Cassette or Disk) DATA MANAGEMENT SYSTEM 
\o For writing letters, text, mailing lists, etc., with each (Cassette or Disk) EL 
g new subscriptions or renewal. Complete file management for your TRS-80™ EB 
.% LEVEL II RAM TEST CLEANUP 
ln (Cassette or Disk) (Cassette or Disk) 
Checks random access memory to ensure that all memory Fast action Maze Game. 
locations are working properly. * TRS-80™ IS A TRADEMARK OF TANDY CORP. 


ETTE AND DISKETTE). $2.00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE. 


SEND FOR OUR NEW 48 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS-80™ PROGRAMS AVAILABLE ON 
CASS 


‘COMPUTROMNICS: ne 


Box 149 New City, New York 10956 


ONE YEAR SUBSCRIPTION $24.......... (91 4) 425-1535 


TWO YEAR SUBSCRIPTION $48.......... 
SAMPLE OF LATEST ISSUE $4.......... 
START MY SUBSCRIPTION WITH ISSUE .......... 


(#1 - July 1978 ¢ #7 - January 1979 © #12 - June 1979 © #18 - January 1980) 
NEW SUBSCRIPTION ........ RENEWAL ........ 


CREDIT CARD NUMBER ERP; DATE 


SIGNATURE 


NAME 


ADDRESS a SIAL 
*** ADD $6/YEAR (CANADA, MEXICO) - ADD $12/YEAR AIR MAIL - OUTSIDE OF U.S.A., CANADA & MEXICO *** 
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MATHEMATICAL APPLICATIONS SERVICE™ 


Box 149 


New City, New York 10956 


U.S. POSTAGE 
STANDARD 


BULK RATE 
Permit #58 
New City, N.Y. 10956 


FORWARDING POSTAGE 
GUARANTEED 


RETURN POSTAGE 
GUARANTEED 


